Имеется неизвестное количество форм, отображающих каждая свои данные. Управление ими одинаково и стандартизовано, и сделано через класс, в котором объявляется переменная:

Private WithEvents myForm As Form

Фактическое создание формы происходит через:

Set myForm = New Form_Someform1

Писать руками Н-нное количество SELECT...CASE для каждой формы и не забывать добавлять туда новые или удалять не нужные нет никакого желания.
Поэтому возникла мысль делать это налету:

Private WithEvents myForm As Form
Public Sub ClassInit(FormName As Sting)
Set myForm = New FormName
End Sub

Но конструкция: Set myForm = New FormName не является корректной и необходимо какое-то решение, чтобы создавать нужные формы не плодя SELECT...CASE или управляющий класс под каждую форму.

https://www.sql.ru/forum/1309157/sozdanie-na-letu-peremennoy-klassa-formy-s-tipom-vzyatym-iz-znachenie-drugoy-peremennoy