ingresar un numero y como resultado me de fuera del rango o dentro del ramgo

Dm A as integer
A= TextBOX1.Text
If (A) >= 50 and If (A) <= 60 Then Message ("ANDA ENTRE 50 Y 60") Else Message (" FUERA DEL RANGO 50 Y 60")END PUBLIC SUB Button2_Click() Textbox1.text = "" END PUBLIC SUB Button3_Click() QUIT END