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