Visual Basic - esto es refacil pero no me resulta

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

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

sugerencia, se me ocurre que
si text1 text2 son las cajas de texto tendrias que probar con
val = val(text2)
eso hace que lo que esta en text2 sea leido como un valor numerico, sino solo esta leyendo un valor de texto o string
suerte !!!!!!!!!!!!!

me olvede decirte que cambies el nombre de la variable val por otro, para que no te genere conflicto por ser una palabra del VB
que se yo ponele
dim Wval, Wmax, etc

gracias probare y te cuento....