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).