Public Function MakeDouble( _
    ByVal vValue As Variant _
    ) As Variant    MakeDouble(0) = String$(8, 0)
    MakeDouble(1) = String$(6, 0) + Chr$(240) + Chr$(63)
    MakeDouble(2) = String$(7, 0) + Chr$(64)
    MakeDouble(2.5) = String$(6, 0) + Chr$(4) + Chr$(64)
    MakeDouble("2") = String$(7, 0) + Chr$(64)
    IsNull(MakeDouble(Null)) = TrueSee also:     MakeDoubleFast Function
    CoerceToDouble Function
    MakeDate Function
    MakeSingle Function
    LODWORD Function
    HIDWORD FunctionvValue: The Double value whose bytes are to be interpreted as a string. vValue can be a numeric value, a date value, a numeric string, or a date string. Function returns Null if vValue is Null. Function returns an empty string if vValue cannot be fixed up to a number. Note: This function converts the string representation of the value to Unicode using the default code page of the system. 
v1.3 Change: Removed 16-bit support from this function. 
Copyright 1996-1999 Entisoft
Entisoft Tools is a trademark of Entisoft.