porque no se aplica la condicion?

[ka3loskaibiles]

ayuda aqui amigos, necesito que cuando inserte un numero que no este entre el rango 50-100 no se escriba y aparesca un mensaje indicandomelo_




Dim suma As Integer
Dim x As Double
Dim pro As Double


Private Sub Command1_Click()
Text1.Text = pro
End Sub




Private Sub Command2_Click()
For x = 1 To 10

a = InputBox("escribe un numero")
V = Val(a)
suma = V + suma
pro = suma / 10
'If Val(a) >= 50 <= 100 Then

'End If
Next
Label1.Caption = suma
End Sub




ayuda please es todo lo que me falta

[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