NUMEROS ENTRE 50 Y 60 CASO CONTRARIO FUERA DEL RANGO

DIM A AS Integer
A = TextBox1.Text
IF A >= 50 AND A <= 60 THEN
Message("ANDA ENTRE 50 Y 60")
ELSE
Message("FUERA DEL RANGO")
END IF
END

PUBLIC SUB Button3_Click()
QUIT
END

PUBLIC SUB Button2_Click()
TextBox1.Text = ""
END