Mit nur einer einzigen Zeile können Sie die
    Einstellungen der Soundkarte ermitteln:

ERFORDERLICHE OBJEKTE

   keine 

FORM-CODE

   Private Sub Form_Load()
      Soundsettings$ = Environ$("blaster")
      MsgBox Soundsettings$
      End
   End Sub

siehe auch

    Soundkarte vorhanden ?
    Länge einer Wavedatei ermitteln
    Wavedatei in EXE-Datei integrieren
    Wavedatei abspielen