Kак воспроизвести звуковой файл — Basic(Бейсик)

Вариант

iFileName = "C:\Windows\Media\LogOff.wav"
iMacroFunction = "SOUND.PLAY(,""" & iFileName & """)"
ExecuteExcel4Macro iMacroFunction
Если же необходимо программно определить был или нет воспроизведён звук, то для этого можно воспользовать функцией IsSoundPlay, вызов которой приведён ниже.

Private Sub Test()
    iFileName$ = "C:\Windows\Media\LogOff.wav"
 
    If IsSoundPlay(iFileName$) = True Then
       MsgBox "Мы только что воспроизвели звук", , ""
    Else
       MsgBox "К сожалению, ничего не вышло", , ""
    End If
End Sub
 
Private Function IsSoundPlay(iFileName$) As Boolean
    iMacroFunction$ = "SOUND.PLAY(,""" & iFileName$ & """)"
    IsSoundPlay = Not IsError(ExecuteExcel4Macro(iMacroFunction$))
End Function
Вариант
Если на компьютере установлен Проигрыватель Windows Media Player, то :

CreateObject("MediaPlayer.MediaPlayer.1").Open "C:\Windows\Media\Tada.wav" 'Tada.wma
Обратите внимание на то, что Вы можете использовать и другие возможности этого проигрывателя, к примеру, узнать причину отсутствия звука:

With CreateObject("MediaPlayer.MediaPlayer.1")
     .Open "C:\Windows\Media\Music.mp3"
     If .HasError = True Then MsgBox .ErrorDescription, , ""
End With