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 

• SQL-String einer Abfrage ermitteln
• Backup-Lösung für tägliche Sicherung
• Backend-Passwort aus Connectstring auslesen
• Runden von Uhrzeiten
• Arbeiten mit INI-Dateien