>Merci Ecric,
>
>For the function that can do this well How about this!
>
>Function EmptyTxt( Txt as String) as integer
>
>if Txt & "" = ""
> return 0
>endif
>return 1
>
What about returning the string instead of returning a boolean value?
Function CheckStringForNull(ByVal Txt As Variant) As String
CheckStringForNull = Txt & ""
End Function
If you only want to return if the string is empty, you can also use this:
Function EmptyTxt(ByVal Txt As String) As Boolean
EmptyTxt = (Trim$(Txt & "") = "")
End Function
Éric Moreau, MCPD, Visual Developer - Visual Basic MVP
Conseiller Principal / Senior Consultant
Moer inc.
http://www.emoreau.com