Existe uma maneira de definir um objeto para a nova instância de uma classe usando o nome de texto da classe?

Eu terei uma biblioteca de classes e, dependendo de alguma outra variável, quero obter uma dessas classes em tempo de execução.

Por exemplo. Eu tenho "CTest1", "CTest2", "CTest3"

Eu teria função semelhante ao abaixo

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