レガシVB: For Each 〜 In Array()で型保証したいとき

まぁFor Eachの対象集合にArray()なんてそーとーAdhocなコード以外で使うもんじゃないが、
なんだかんだで似たような状況(イテレータ変数をVariantにしかできない場合)はあるんで。

要は、型付けした変数を別途用意しておいて、一旦そっちへ代入すりゃいいってことなんだが
たとえばADODB.Recordsetで宣言した変数rsに、Variantのvを

Set rs = v

なんてできるんかいなというのが不安だったのでorz
(もしvに互換性のない型のブツが入ってたら型不一致のランタイムエラー。)