Dim n as integer
Set n = 10

If (n > 1 and n < 100) Then

End If