>>360
>ユーザー定義型変数の参照渡しをプロシジャ引数で渡せたっけ？
Public Type hogeType
    a As Integer
    b As Integer
End Type

があるとして

Sub test()
    Dim hoge As hogeType
    hoge.a = 1
    hoge.b = 2
    MsgBox hogesum(hoge)
    MsgBox hoge.a
End Sub
Function hogesum(ByRef hage As hogeType) As Integer
    hogesum = hage.a + hage.b
    hage.a = 0
    hage.b = 0
End Function

でtestを走らせると、3と0と表示される
問題なく渡せるようだ

ちなみに引数をByValにすると
ユーザー定義型をByValで渡すことはできません
ってコンパイルエラーになった

できないのは値渡しと矢切りの渡しだな