Ciao,
credo che tu intendevi far questo:

codice:
Private Sub Text1_KeyPress(KeyAscii As Integer)
    If KeyAscii < 48 Or KeyAscii > 57 Then
        MsgBox "IL TASTO PREMUTO NON è UN NUMERO"
    End If
    
    Select Case KeyAscii
        Case 48 To 57 '
        Case Else '
            KeyAscii = 0
    End Select
End Sub