Eine recht simple Sache, nur leider zu selten zu finden.
    Deshalb möchte ich es an dieser Stelle kurz anbieten:

ERFORDERLICHE OBJEKTE      

   1 CommandButton (Command1)
 FORM-CODE

   Private Declare Function sndPlaySound Lib "Winmm.dll" Alias _
      "sndPlaySoundA" (ByVal lpszSoundName As String, _
      ByVal uFlags As Long) As Long 

   Private Sub Command1_Click()
      Dateiname = App.Path
      If Right(Dateiname, 1) <> "\" Then _
         Dateiname = Dateiname & "\"
      Dateiname = Dateiname & "test.wav"
      sndPlaySound Dateiname, 1
   End Sub

 siehe auch:
    Soundkarte vorhanden ?
    Soundkarten einstellungen
    Länge einer Wavedatei ermitteln
    Wavedatei in EXE-Datei integrieren