Private Sub Text1_KeyPress(Index As Integer, KeyAscii As Integer)
 
    'LeerTaste
    If KeyAscii = 32 Then
        If Not Index = 3 Then
            Text1(Index + 1).SetFocus
            Text1(Index + 1).SelStart = Len(Text1(Index + 1))
            KeyAscii = 0
        Else
            KeyAscii = 0
        End If
    End If
 
    If KeyAscii >= 48 And KeyAscii <= 57 Then
 
        If Len(Text1(Index).Text) = 2 Then
            If Not Index = 3 Then
                Text1(Index).Text = Text1(Index).Text & Chr(KeyAscii)
                Text1(Index + 1).SetFocus
                KeyAscii = 0
            Else
                Text1(Index).Text = Text1(Index).Text & Chr(KeyAscii)
                KeyAscii = 0
            End If
 
        ElseIf Len(Text1(Index).Text) = 3 And Not KeyAscii = 8 Then
            KeyAscii = 0
        End If
 
    End If
 
End Sub
 
Private Sub Text1_KeyUp(Index As Integer, KeyCode As Integer, Shift As Integer)
 
    If KeyCode = 8 Then
        If Not Index = 0 Then
            If Text1(Index) = "" Then
                Text1(Index - 1).SetFocus
                Text1(Index - 1).SelStart = Len(Text1(Index - 1))
            End If
        Else
            KeyCode = 0
        End If
    End If
 
End Sub