>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