Just to round out the sounds & beep VB6 code:

Option Explicit

Private Declare Function beep Lib "kernel32" _
    Alias "Beep" (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long

Public Sub playBeep(Optional lngFreq As Long = 1000, _
     Optional lngDur As Long = 40, Optional lngTimes As Long = 1)

    Dim i As Long
    
    For i = 1 To lngTimes
        beep lngFreq - 10 * i, lngDur
    Next i
End Sub