Gibt es eine Möglichkeit, ein Objekt auf die neue Instanz einer Klasse festzulegen, indem der Textname der Klasse verwendet wird?

Ich werde eine Bibliothek von Klassen haben, und abhängig von einer anderen Variablen möchte ich eine dieser Klassen zur Laufzeit erhalten.

Z.B. Ich habe "CTest1", "CTest2", "CTest3"

Ich hätte eine ähnliche Funktion wie unten

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