Visual Basic.NET - valor de un textbox esta compuesto entre 1 y 7

Como hacer si el valor de un textbox esta entre 1 y 7 me marque la propiedad true en un checkbox.

If TextBox1.Text = 1 <> 7 Then
CheckBox1.Checked = True
Else
CheckBox1.Checked = False
End If

If TextBox1.Text = 1 or TextBox1.Text = 7 Then
CheckBox1.Checked = True
Else
CheckBox1.Checked = False
End If

Feliz año nuevo

No Francisco, así lo marca cuando es 1 y 7, pero no con 2,3,4,5,6



If Me.TextBox1.Text <> "" Then
If IsNumeric(Me.TextBox1.Text) = True Then
If CDec(Me.TextBox1.Text) >= 1 And CDec(Me.TextBox1.Text) <= 7 Then
Me.CheckBox1.Checked = True
Else
Me.CheckBox1.Checked = False
End If
Else
Me.CheckBox1.Checked = False
End If
Else
Me.CheckBox1.Checked = False
End If

Gracias amigos. Ya encontré una solución al problema.

dim number as integer
CheckBox1.Checked = (integer.tryparse(TextBox1.Text, number) andalso number > 0 andalso number < 8)

Un saludo y muchas gracias por su atención.