Initial data commit

Task/Null-object/Visual-Basic/null-object-1.vb

@@ -0,0 +1,15 @@
+Public Sub Main()
+Dim c As VBA.Collection
+
+' initial state: Nothing
+Debug.Assert c Is Nothing
+
+' create an instance
+Set c = New VBA.Collection
+Debug.Assert Not c Is Nothing
+
+' release the instance
+Set c = Nothing
+Debug.Assert c Is Nothing
+
+End Sub

Task/Null-object/Visual-Basic/null-object-2.vb

@@ -0,0 +1,17 @@
+Public Sub Main()
+Dim v As Variant
+
+' initial state: Empty
+Debug.Assert IsEmpty(v)
+Debug.Assert VarType(v) = vbEmpty
+
+v = 1&
+Debug.Assert VarType(v) = vbLong
+
+' assigning the Null state
+v = Null
+' checking for Null state
+Debug.Assert IsNull(v)
+Debug.Assert VarType(v) = vbNull
+
+End Sub