Private Sub Text1_KeyPress(KeyAscii As Integer)
Dim TmpAscii As Integer, ExitDo As Integer
 
Label1.Caption = ""
 
If KeyAscii = 13 Then
  TmpAscii = Asc(Text1.Text)
  If TmpAscii >= 97 And TmpAscii <= 121 Then  'Kleine buchstaben
    ExitDo = 122
  ElseIf TmpAscii >= 65 And TmpAscii <= 90 Then 'Grosse Buchstaben
    ExitDo = 90
  End If
  Do
    TmpAscii = TmpAscii + 1
    Label1.Caption = Label1.Caption & Chr$(TmpAscii)
    If TmpAscii >= ExitDo Or TmpAscii >= ExitDo Then Exit Do
  Loop
End If
End Sub