VBのforeachは言語仕様上オブジェクトしか参照を渡してくれないからね
スマートにforeachで処理したつもりで全く反映されてなくてぐぎぎぎぎ