Instantiate internal class object with name in string

[Elroy]

Hey,

Anyone have an idea how to instantiate a class (say Class1) in our project when the name is a string?

For instance, something like ...

Dim o As Class1
Set o = InstantiateByName("Class1")

EDIT1: Much like CallByName but for instantiation instead.

Thanks,
Elroy