Format TextBox

Habe in Archiv ein Code von Matthias gefunden der nur eine numerische eingabe zulässt.
Dieser Code wäre für mich ideal weil er nicht generell, sonder nur bei KeyPress zutrifft.
Das Problem ist dass es nur eine einstellige Zahl zulässt. meine Zahlen sind jedoch 5 bis 8-Stellig

weiss jemand wie man dies umändern kann?

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If Chr(KeyAscii) Like "[0-9]" = False Then KeyAscii = 0
End Sub

Gruss, daniele