Public Function IsLong(ByVal Expression As Variant) As Boolean
Returns True if the specified variable/expression is of type Long.
Dim lVariant As Variant
lVariant = 100
SendDebug IsLong(lVariant) ' Sends out True
lVariant = lVariant / 2 'Now contains 50
SendDebug IsLong(lVariant) ' Sends out False: The result of a division is always a double