Sub CompareNulls2()
Dim varValue1 As Variant
Dim varValue2 As Variant
varValue1 = Null
varValue2 = Null
If IsNull(varValue1) And IsNull(varValue2) Then
Debug.Print "Both variables are Null"
End If
End Sub