Public Function IsBoolean(ByVal Expression As Variant) As Boolean
Returns True if the specified variable/expression is of type Boolean.
Dim lVariant As Variant
SendDebug IsBoolean(lVariant) ' Sends out 'False': lVariant is Empty.
lVariant = True
SendDebug IsBoolean(lVariant) ' Sends out 'True'