Czy istnieje sposób na ustawienie obiektu do nowej instancji klasy przy użyciu nazwy tekstu klasy?

Będę miał bibliotekę klas iw zależności od innej zmiennej chcę uzyskać jedną z tych klas w czasie wykonywania.

Na przykład. Mam „CTest1”, „CTest2”, „CTest3”

Miałbym funkcję podobną do poniższej

<code>Function GetTestClass(lngClassNo as long) as Object

 Dim strClassName as String    
 strClassName = "CTest" & CStr(lngClassNo)

 Set GetTestClass = New instance of class(strClassName)

End Function
</code>