Private Sub Text1_KeyPress(KeyAscii As Integer)
  Dim sText As String
 
  sText = Text1.Tag
  If KeyAscii = 8 Then
    <font color=green>' Backspace - letztes Zeichen löschen</font>
    If Len(sText) > 0 Then
      sText = Left$(sText, Len(sText) - 1)
    End If
  ElseIf KeyAscii > 31 Then
    <font color=green>' nur darstellbare Zeichen</font>
    sText = sText & Chr$(KeyAscii)
  End If
  KeyAscii = 0
  Text1.Tag = sText
End Sub