Sub aaa(ByVal hoge as hogeClass)
とByValで渡しているのにhogeの中身が書き換えられるのは何故なんでしょう？
Sub aaa()の中でhogeが書き換えられなくするにはどうしたらいいの？