<code>Private Sub Text1_KeyPress(KeyAscii As Integer)
  <font color=green>' automatisch ins nächste Feld springen</font>
  If KeyAscii > 31 Then
    If Len(Text1.Text) + 1 >= Text1.MaxLength Then
      Text1.SelText = Chr$(KeyAscii)
      KeyAscii = 0
      Text2.SetFocus
    End If
  End If
End Sub</code>