Visual Basic - CICLO

POR FAVOR PODRÍAS AYUDARME A HACER UN CICLO QUE RECIBA SOLO NÚMEROS ENTRE EL 0 Y EL 7. ES DECIR PUDES DAR 0, 2,3, ETC. Y CUANDO DE UN NUMERO DIFERENTE, COMO EL 9 POR EJMPLO SE SALGA DEL SICLO? GRACIAS DE ANTEMANO

Por ejemplo si entramos numeros en una caja de texto,si es entre = y 7 guardaria el numero en la variable i

Private Sub EntraNum()
Dim num As integer , i As integer

If num => 0 and num =< 7 then
i = Val ( CajaTxt.text )
Else
MsgBox "No valido"
End if

End Sub