Function IfNull(varValue As Variant) As Integer
On Error GoTo Err_IfNull

    ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
    ''DESC: This Function receives a varaint and test if it is a''
    ''      Null value. Unlike IsNull, IfNull will return a True''
    ''      If the value is an Empty String, Zero Length String ''
    ''      or a true Null value.                               ''
    ''BY:   Luna Systems                                        ''
    ''      125 Cambridge Street, Burlington, MA  01803         ''
    ''      781-270-4900                                        ''
    ''MOD:  12/20/97                                            ''
    ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

    'Default variables
    IfNull = False

    If varValue = "" Then
        IfNull = True
    ElseIf Len(varValue) < 1 Then
        IfNull = True
    ElseIf IsNull(varValue) Then
        IfNull = True
    ElseIf varValue = Chr(0) Then
        IfNull = True
    Else
        IfNull = False
    End If

Exit_IfNull:
    Exit Function

Err_IfNull:
    MsgBox Err.Description, vbOKOnly, "Luna Systems"
    Resume Exit_IfNull
End Function