Public Declare Function PlaySound Lib "winmm.dll" Alias "PlaySoundA" (ByVal lpszName As String, ByVal hModule As Long, ByVal dwFlags As Long) As Long

Public Function EffectSound(Effect As String) As Long

    On Error Resume Next

    Dim sEffect As String

    sEffect = IIf(Right(App.Path, ) = "\", App.Path, App.Path & "\") & Effect

    PlaySound sEffect, ,

End Function

Call EffectSound("OO.wav")