Public Class CTest
        Public Sub Test1(ByVal sText As String, ByVal nNumber As Integer)
            MsgBox(sText)
            MsgBox(nNumber)
        End Sub
    End Class
 
    Private Sub TryIt()
        Dim Test As New CTest
        Dim mi As System.Reflection.MethodInfo = Test.GetType().GetMethod( _
          "Test1")
        mi.Invoke(Test, New Object() {"text", 800})
    End Sub