Private Declare Function Beep Lib "kernel32" (ByVal dwFreq As Long,
ByVal dwDuration As Long) As Long
Private Sub Command1_Click()
Dim s As String
Dim i As Integer
s = Text1. Text
For i = 1 To Len(s)
Select Case Mid(s, i, 1)
Case 0
Beep 0, 200
Case 1
Beep 489, 200
Case 2
Beep 598, 200
Case 3
Beep 684, 200
Case 4
Beep 780, 200
Case 5
Beep 880, 200
Case 6
Beep 910, 200
Case 7
Beep 1060, 200
End Select
Next