Convertendo texto

Olá pessoal, eu tenho um text box, um botão e um outro TextBox, gostaria que quando um texto é colocado no TXt Box e apertasse o botão ele "encriptasse" o texto e o colocasse no label. Ex: se eu escrevesse "ab", deveria aparecer "•_ •••" (código morse). Mas eu estou com problemas no código: Private Sub Command1_Click()Dim Texto As O QUE COLOCO AQUI?Texto = Text1.TextA = "•_"B = "•••"Text2.Text = TextoEnd SubQual é minha solução?Té mais