Lo que quiero hacer es algo como esto:
Código
Public a Private Sub Command1_Click() a = Text1.Text If (a >= 0) And (a <= 9) Then MsgBox ("El numero esta entre 0 y 9") ElseIf (a >= 10) And (a <= 19) Then MsgBox ("El numero esta entre 10 y 19") ElseIf (a >= 20) And (a <= 29) Then MsgBox ("El numero esta entre 10 y 19") Else MsgBox ("El numero es mayor o igual que 30 o es un caracter no numerico") End If End Sub
claro que no seria solo 4 o 5 comparaciones, son al rededor de 40 aprox xD por lo que se podria hacer asi pero no seria lo optimo
Saludos y gracias de antemano