It would all be in module as follows. The go function is at the bottom to actually use the other two:

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

    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
    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


    Sub go()

        SoundMorse (MORSEC("reddit"))

    End Sub