Public Function EmptyToBlank( _
ByVal vValue As Variant _
) As Variant Assuming
Dim varEmpty As Variant
for example
EmptyToBlank(varEmpty) = ""
EmptyToBlank(EmptyValue) = ""
IsNull(EmptyToBlank(Null)) = True
EmptyToBlank("Word") = "Word"
EmptyToBlank(123456) = 123456See also: EmptyToNull Function
EmptyToValue Function
EmptyValue PropertyvValue: The value which is to be changed from Empty to a blank string if appropriate. Function returns an empty String if vValue is an Empty Variant. Function returns vValue unchanged in all other cases. Copyright 1996-1999 Entisoft
Entisoft Tools is a trademark of Entisoft.