TKSoft-Online

Public Function TestTextNull(varAusdruck As Variant) As Boolean
'*******************************************
'Name:      TestTextNull (Function)
'Purpose:   prüft ob ein Objekt leer ist oder nicht
'Author:    Thomas Keßler
'Date:      Februar 02, 2003, 05:26:47
'Inputs:    beliebig
'Output:    True=wenn Objekt leer,Null oder "" ist, sonst False
'*******************************************

On Error Resume Next

    If IsNull(varAusdruck) Then TestTextNull = True: Exit Function
    If Len(Trim(varAusdruck)) = 0 Then TestTextNull = True: Exit Function

    TestTextNull = False

End Function