Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As LongPublic Sub PlaySound(SoundFile As String) sndPlaySound SoundFile, 1End Sub