Me.Show
Me.Cls
 
Dim i As Integer
 
For i = 0 To 255
  Form1.Print i & ":" & Chr(i) & "  ";
  If i / 15 = Int(i / 15) Then Form1.Print
Next i

Private Sub Command1_Click()
Dim strIn As String
Dim strOut As String
Dim zeichen As String
Dim i As Integer
 
strIn = Text1.Text
 
For i = 1 To Len(strIn)
  zeichen = Mid(strIn, i, 1)
  strOut = strOut & ZeichenZahl(zeichen)
Next i
Text2.Text = strOut
 
End Sub
 
Function ZeichenZahl(zzZeichen As String) As Integer
 
Select Case zzZeichen
Case "a"
  ZeichenZahl = 1
Case "b"
  ZeichenZahl = 2
'usw
Case "A"
  ZeichenZahl = 27
Case "B"
  ZeichenZahl = 28
'usw
End Select
 
End Function

____________________________
Heimschmiede.de.vu