There is two typos on the function below in the AbstractFactoryExample Module.
Private Function CreateSomeHondaCars(ByVal factory As ISimplerCarFactory) As Collection
'NOTE: this function doesn't know or care what specific ISimplerCarFactory it's working with.
Dim cars As Collection
Set cars = New Collection
cars.Add factory.Create("Civic")
cars.Add factory.Create("Accord")
cars.Add factory.Create("CRV")
Set CreateSomeCars = Collection 'should read Set CreateSomeHondaCars = cars
End Function
There is two typos on the function below in the AbstractFactoryExample Module.