Ad esempio così:

Private Sub Command1_Click()
Dim Carattere As String * 1
Dim Cont1 As Integer

Text2.Text = ""
For Cont1 = 1 To Len(Text1.Text)
Carattere = Mid(Text1.Text, Cont1, 1)
If Cont1 = 1 Then
Text2.Text = Asc(Carattere)
Else
Text2.Text = Text2.Text & " " & Asc(Carattere)
End If
Next Cont1
End Sub