I do not what to return a empty string because I have to test it twose.
Ex: if CheckStringForNull(rs!Myfield) = ""

>
>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:
>
Vendu!
Ex: if EmptyTxt(rs!MyField)

>Function EmptyTxt(ByVal Txt As String) As Boolean
> EmptyTxt = (Trim$(Txt & "") = "")
>End Function