¿Hay una manera de establecer un objeto para la nueva instancia de una clase utilizando el nombre de texto de la clase?

Tendré una biblioteca de clases, y dependiendo de alguna otra variable, quiero obtener una de estas clases en tiempo de ejecución.

P.ej. Tengo "CTest1", "CTest2", "CTest3"

Tendría una función similar a la siguiente

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