Useful if you've got a telegraph lying around, but otherwise, there are better ways to do things. Binary, for example. And it's easier, too. Don't need to do it by cases for each letter.
For example, to convert any string to binary:
Private Function strToBin(str As String) As String
Dim output As String, i As Integer
For i = 1 To Len(str)
output = output & bin(Asc(Mid(str, i, 1)))
Next i
strToBin = output
End Function
Private Function bin(ByVal intIn As Integer) As String
Dim output As String, j As Integer, k As Integer
Do
j = Int(intIn / 2)
k = intIn - j * 2
intIn = j
output = CStr(k) & output
Loop While intIn <> 0
bin = output
End Function