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