複数あるクラスの Set ○○ = New □□ ひとつにまとめたい (ID:102813)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 > という感じにしたいのですが、出来ないでしょうか？ 提示されたコードだけなら、 Set CreateSample = New Class1 CreateSample.Test p のようにすれば済みそうですが…そういう事では無く?