Reconocimiento de variables

[culd]

Fijate esto es usando un TextBox llamado "Text1" en el evento Keypress, si ingresas cualquier otra cosa que no sea del 0 al 9 te lo rechaza impidiendo que se ingrese y ademas te avisa.

Código:

Private Sub Text1_KeyPress(KeyAscii As Integer)
'Nota: el ascii del Back Space es el 8
Select Case KeyAscii
    Case Asc("0"), Asc("1"), Asc("2"), Asc("3"), Asc("4"), Asc("5"), Asc("6"), Asc("7"), Asc("8"), Asc("9"), 8
    Case Else
        KeyAscii = 0
        MsgBox "Solamente se admiten numeros enteros"
End Select
End Sub