Public Sub Mona(ByVal a As Object)
　Dim b as 引数の型
End Sub

引数aがintegerだったら、Monaの中でbはintegerを宣言
引数aがdoubleだったら、Monaの中でbはdoubleを宣言のようなことってできますか？