Declare Function Beep Lib "kernel32" (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long

Sub beeps(melody As String, Optional ByVal BeepTime As Integer = 200)
     mr = "qazwsxedcrfvtgbyhnujmik,ol.p;/['"
     For i = 1 To Len(melody)
         DoEvents: nextlen = 1: letter = Mid$(melody, i, 1)
         nota = InStr(1, mr, letter)
         If IsNumeric(letter) And letter > 0 Then
             nextlen = letter: i = i + 1: nota = InStr(1, mr, Mid$(melody, i, 1))
         End If
         If nota > 0 Then
             tone = 220 * (2 ^ ((nota - 1) / 12))
             a = Beep(tone, nextlen * BeepTime)
         Else
             a = Beep(30000, nextlen * BeepTime / 5)
         End If
     Next
End Sub

' воспроизведение звуков высокой и низкой частоты

Sub beepH(): beeps "k", 100: End Sub

Sub beepH0(): beeps "k", 30: End Sub

Sub BeepH2(): beeps "k,k", 100: End Sub

Sub beepL(): Beep 100, 100: End Sub

Sub beepL0(): Beep 100, 30: End Sub

Sub BeepL2()
     Beep 100, 100
     Beep 104, 100
     Beep 100, 100
     Beep 70, 200
End Sub