Visual Basic - numero dentro de rango

toy haciendo un programa y necesito saber si un numero esta dentro de un rango de numeros...si es mayor o menor debe arrojar un mensaje...
tengo este codigo pero no me resulta...

dim vari, max, min as integer

vari = Tcodigo
max = Text2
min = Text1

If vari > max Then
MsgBox "es mayor"
Exit Sub
End If

If vari < min Then
MsgBox "es menor"
Exit Sub
End If

/////////////////////////////////////
de esta manera tanpoco. en que estoy mal?...
con variables no me resulto..y ahora calculando directamente con los valores de las heramientas tampoco...que esta mal tonces'?
*****************************
If Tcodigo.Text > Textmayor.Text Then
MsgBox "Ellxo rango de codigo es " & Text1.Text & " y " & Text2.Text & " "
Tcodigo.SetFocus
Exit Sub
End If

If Tcodigo.Text < Textmenor.Text Then
MsgBox "Ello rango de codigo es " & Text1.Text & " y " & Text2.Text & " "
Tcodigo.SetFocus
Exit Sub
End If

***********************