Function IsInt(str)
If IsNumeric(str) or (len(str)>5) then
IsInt=False
Exit Function
Else
If (len(str)<5) then
IsInt=True
Exit Function
Else
If CInt(left(str,4))>3276 then
IsInt=False
Exit Function
Else
If CInt(Left(str,4))=3276 and CInt(Right(str,1))>7 then
IsInt=False
Exit Function
Else
IsInt=True
End If
End If
End If
End If
End Function
