Isdouble () in VB6?

Function IsDouble(ByVal varValue As Variant) As Boolean

 Dim dblTest As Double

 On Error Resume Next

 dblTest = CDbl(varValue)

 IsDouble = Err.Number = 0

End Function

VB6 Are there any IsDouble() functions? If I am not mistaken, the Double data type in VB6 is equivalent to float in SQL Server 2000.
Thank you very much for your suggestions.

Function IsDouble (ByVal varValue As Variant) As Boolean

 Dim dblTest As Double

 On Error Resume Next

 dblTest = CDbl(varValue)
 
 IsDouble = Err.Number = 0

End Function