Private Sub Command1_Click()
Dim i As Integer
Dim strTemp As String
Dim intTemp As Integer
 
    strTemp = LCase(Text1.Text)
 
    For i = 1 To Len(strTemp)
        intTemp = Asc(Mid(strTemp, i, 1)) - 96 ' Da "a" Ascii 97 ist
 
        If intTemp > 1 And intTemp < 26 Then ' nur A-Z und a-z erlaubt
            Text2.Text = Text2.Text & " " & CStr(intTemp)
        End If
 
    Next i
 
End Sub