Sub Main Dim X As Variant Debug.Print IsEmpty(X) 'True Debug.Print IsNull(X) 'False X = 1 Debug.Print IsNull(X) 'False X = "1" Debug.Print IsNull(X) 'False X = Null Debug.Print IsNull(X) 'True X = X*2 Debug.Print IsNull(X) 'TrueEnd Sub