[VB6] Consentire l'inserimento di soli numeri in un controllo TextBox

[x69asterix]

textbox impostata a MaxLength = 4
con:

Private Sub Text1_KeyPress(KeyAscii As Integer)
Select Case KeyAscii
    Case 48 To 57, 8
        Exit Sub
    Case Else
        KeyAscii = 0
End Select
End Sub

mi inserisce solo numeri.
Ma da una stringa che mi inizia con un numero è possibile inserire in una textbox solo i numeri presenti nella stringa?
esempio stringa:
1casa
dovrei inserire solo 1

59ca
dovrei inserire solo 59

[oregon]

Usa la Val ...

[x69asterix]

provo subito