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.