Problems with an If statement

[slenish]

Hello,

Im currently trying to implement an If statement for a number box. I want to make it so you have to enter in 5 numbers to the box. If you enter in more or less than 5 you get an error message back. I have already wrote some code for what I want to do but for some reason only half of it is working, and I cant figure out why?

I would appercaite any help.

Thanks

Dim number, zipCode As Integer
Dim error As String
number = 0
zipCode = 5
 
If number > zipCode Then
error = " There are to many numbers. \n"
 
Else
If number < zipCode Then
error = " You need to enter in 5 numbers. \n"
End If
End If

At this point I can get it to error out when you enter in more than 5 but not less.

[pbaldy]

Two problems, neither of which is your problem, but both need to be addressed. First, you don't want to test the zip itself, you want to test the length of it, right? You want Len(NumberEntered). Second, because a zip can start with zero, you can't use a numeric data type for your variable, you need to use String (a numeric data type will drop the leading zero). Oh, and you would have had to use Long for the zip anyway, because Integer wouldn't hold the larger ones.

The possible source of your problem is that number is actually declared as a Variant, not an Integer. You would have to have done this to get 2 Integers:

Dim number As Integer, zipCode As Integer