Textbox Set Fokus...

Hallo Forum,

per unten stehenden Makros beschränke ich die Eingabe einer Textbox auf die Zahlen 1 bis 9. Danach wird das KeyUp event ausgelöst und der Fokus wird auf die nächste Textbox gesetzt.

Ich benötige folgende Erweiterung: Wenn die Tasten 8 und 9 gedrückt werden, soll der Focus auf Textbox4 bleiben und Textbox5 NICHT den Fokus erhalten.
Wie ändert man dies? Gruß Chris

Private Sub TextBox4_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)

Select Case KeyAscii
Case 49 To 55
Case Else:
KeyAscii = 0
Exit Sub
End Select

Private Sub TextBox4_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
Me.TextBox5.SetFocus
End Sub