Sub aa()
Beep
end sub

Private Declare Function Beep Lib "kernel32" (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long
Sub aa()
Beep  400 ,  500 
End Sub

Private Declare Function playSound Lib "winmm.dll" _
Alias "PlaySoundA" (ByVal lpszSoundName As String, _
ByVal hMod As Long, ByVal uFlags As Long) As Long

Const SND_ALIAS = &H10000
Const SND_ASYNC = &H1
Const SND_FILENAME = &H20000
Const SND_LOOP = &H8
Const SND_NODEFAULT = &H2
Const SND_PURGE = &H40
Const SND_SYNC = &H0
Private Sub aa()
     Call playSound("e:\ring.wav",  0 , _
                     SND_FILENAME Or SND_SYNC)
End Sub