Public Type Unko
　 val1 As Integer
End Type

Public v As Variant
Public u As Unko

Public Sub foo(ParamArray w() As Variant)
　 v = w
End Sub

Public Sub bar(w As Variant)
　 v = w
End Sub

Public Sub hoge()
　 foo u ' エラー
　 bar u ' これもエラー
End Sub