>>88
キャスト関数!?俺はそんな変な関数書いた事ないよ。
インターフェイス IPrinter と、それを実装した CPrinter がある場合、以下でオーケー


Dim objPrinter As IPrinter
Dim ConcretePrinter As New CPrinter

Set objPrinter = ConcretePrinter 'CPrinter が IPrinter を実装しているので全く問題なし。

Call objPrinter.PrintOut ("Message") 'IPrinter において宣言されているメソッドを呼び出せる