Private Declare Function Beep Lib "kernel32" (ByVal soundFrequency As Long, ByVal soundDuration As Long) As Long
Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) 'For 32 Bit Systems

Function MORSEC(command As String)
    Dim i#, num#
    Dim word As String
    Dim MORSECAlpha() As String

    MORSECAlpha = Split(".-,-...,-.-.,-..,.,..-.,--.,....,..,.---,-.-,.-..,--,-.,---,.--.,--.-,.-.,...,-,..-,...-,.--,-..-,-.--,--..,-----,----.,---..,--...,-....,.....,....-,...--,..---,.----,/,", ",")
    MORSEC = ""
    For i = 1 To Len(command)
        num = Asc(UCase(Mid(command, i, 1))) - 65
        If num >= 0 And num <= 25 Then
            MORSEC = MORSEC & MORSECAlpha(num) & " "
        ElseIf num >= -17 And num <= -8 Then
          MORSEC = MORSEC & MORSECAlpha(num + 43) & " "
        ElseIf num = -33 Then
            MORSEC = MORSEC & MORSECAlpha(num + 69) & " "
        End If
    Next i
    MORSEC = Trim(MORSEC)
End Function

Function SoundMorse(strInput As String)
Dim lngLoop As Long

For lngLoop = 1 To Len(strInput)
    Select Case Mid(strInput, lngLoop, 1)
        Case ".":
            Beep 1000, 100
        Case "-":
            Beep 1000, 300
        Case " "
            Sleep (1000)
    End Select

Next lngLoop

End Function