algo asi? era facil media pila ehhh
Dim x As String
Dim b As String
For j = 1 To Len(Text1.Text)
x = Mid(Text1.Text, j, 1)
Select Case UCase(x)
Case Is = "A": b = b & "|" & ".-"
Case Is = "B": b = b & "|" & "-..."
Case Is = "C": b = b & "|" & "-.-."
Case Is = "D": b = b & "|" & "-.."
Case Is = "E": b = b & "|" & "."
Case Is = "F": b = b & "|" & "..-."
Case Is = "G": b = b & "|" & "--."
Case Is = "H": b = b & "|" & "...."
Case Is = "I": b = b & "|" & ".."
Case Is = "J": b = b & "|" & ".---"
Case Is = "K": b = b & "|" & "-.-"
Case Is = "L": b = b & "|" & ".-.."
Case Is = "M": b = b & "|" & "--"
Case Is = "N": b = b & "|" & "-."
Case Is = "O": b = b & "|" & "---"
Case Is = "P": b = b & "|" & ".--."
Case Is = "Q": b = b & "|" & "--.-"
Case Is = "R": b = b & "|" & ".-."
Case Is = "S": b = b & "|" & "..."
Case Is = "T": b = b & "|" & "-"
Case Is = "U": b = b & "|" & "..-"
Case Is = "V": b = b & "|" & "...-"
Case Is = "W": b = b & "|" & ".--"
Case Is = "X": b = b & "|" & "-..-"
Case Is = "Y": b = b & "|" & "-.--"
Case Is = "Z": b = b & "|" & "--.."
Case Is = "0": b = b & "|" & "-----"
Case Is = "1": b = b & "|" & ".----"
Case Is = "2": b = b & "|" & "..---"
Case Is = "3": b = b & "|" & "...--"
Case Is = "4": b = b & "|" & "....-"
Case Is = "5": b = b & "|" & "....."
Case Is = "6": b = b & "|" & "-...."
Case Is = "7": b = b & "|" & "--..."
Case Is = "8": b = b & "|" & "---.."
Case Is = "9": b = b & "|" & "----."
Case Is = ".": b = b & "|" & ".-.-.-"
Case Is = ",": b = b & "|" & "--..--"
Case Is = "?": b = b & "|" & "..--.."
Case Is = "=": b = b & "|" & "-...-"
Case Is = "-": b = b & "|" & "-....-"
Case Is = "/": b = b & "|" & "-..-."
Case Is = "_": b = b & "|" & "..--.-"
Case Is = "'": b = b & "|" & ".----."
Case Is = "!": b = b & "|" & "-.-.--"
Case Is = ":": b = b & "|" & "---..."
Case Is = ";": b = b & "|" & "-.-.-."
End Select
Next
Text2.Text = b