Sub Main Dim X As Variant Debug.Print IsEmpty(X) 'True X = 0 Debug.Print IsEmpty(X) 'False X = Empty Debug.Print IsEmpty(X) 'TrueEnd Sub