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
End Sub