Public Function EqualQuotedValue( _
ByVal vValue As Variant _
) As Variant EqualQuotedValue(CLng(1)) = "= 1&"
EqualQuotedValue(CSng(2)) = "= 2!"
EqualQuotedValue(CBool(0)) = "= False"
EqualQuotedValue("Al") = "= ""Al"""
EqualQuotedValue(Null) = "Is Null"See also: DoubleQuoteString Function
VariantToVBConstExpression Function
VariantToVBEvalExpression FunctionvValue: The value which is to be turned-into a string expression. Copyright 1996-1999 Entisoft
Entisoft Tools is a trademark of Entisoft.