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