Nur Zahlen in sehr vielen Textboxen

Private Sub clTextBox_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If InStr("1234567890" & Chr$(8), Chr$(KeyAscii)) = 0 Then
KeyAscii = 0
End If
End Sub

Funktioniert wunderbar. Jetzt ist allerdings das Problem, dass alle Textboxen für Buchstaben verboten sind. Ich möchte allerdings das die Textboxen 1 bis 6 für alles frei sind und die Textboxen 7 bis 66 nur für Zahlen. Wie ihr seht, sind es sehr viele Textboxen, so dass:

Private Sub Textbox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) usw.
End Sub

keine wirkliche Lösung wäre.
Hoffe ihr könnt mir bei meinem Problem helfen.
Gruß
Uli