Nej, tyvärr. Vad du möjligtvis kan göra är att definiera "apa" som en klass och lägga till en publik sub "InitialiseApa" som gör jobbet (delvis).
Därefter kan du skriva:
dim foo() as apa
set foo(0)= new apa
foo(0).InitialiseApa(värde1, värde2 ..)
' osv ..
Det är tom så illa i VB att man inte kan skicka in intialiseringsvärden vid anrop till "new".