Private Sub Form_Load()
 
    Dim i As Integer
    Dim sText As String
        sText = Text1.Text ' <== Dein Text (komplett.. nicht zeilenweise^^)
 
    For i = 1 To Len(sText)
 
        Dim sChar As String
            sChar = Mid(sText, i, 1)
 
            Debug.Print sChar & " --> "; Asc(sChar)
 
    Next i
 
End Sub

Mit freundlichen Gr??en,
Andy G.