porque no se aplica la condicion?

[Judgement]

Debido a que esta comentado :P
Porque el rango que estas intentando validar, no es el correcto para el leguanje:

Código vb:

If ((Val(a)>=50) And (Val(a)<=100)) Then
   'Codigo dentro del rango
Else
   'Codigo fuera del rango
End If