try
VB:Dim myNull Sub test() myCheck myNull, "Not sepcified" myNull = Null myCheck myNull, "Null" myNull = Empty myCheck myNull, "Empty" End Sub Sub myCheck(myNull, myTitle) MsgBox "IsNull(myNull) = " & IsNull(myNull) & _ "IsEmpty(myNull) = " & IsEmpty(myNull), ,"Null = " & myTitle End Sub


Reply With Quote
Bookmarks