ebSingle (constant)

Description Number representing the type of a Single variant.
Comments This constant is equal to 4.
Example This example defines a function that returns True if the passed variant is a Real number. 
Function IsReal(v As Variant) As Boolean
????If VarType(v) = ebSingle Or VarType(v) = ebDouble Then
????????IsReal = True
????Else
????????IsReal = False
????End If
End Function
Sub Main()
????Dim i as Integer
????i = 123
????If IsReal(i) then
????????Msgbox "i is Real."
????End If
End Sub
See Also VarType (function); Variant (data type).