Calling Methods dynamically - asp.net

Question

I am trying to call methods dynamically and I have issues. Could some one please help
I have the following vb code
Module
Sub Main
if user-input = RP1 then
createRP1()
elseif user-input = RP2 then
createRP2()
end if
end sub
sub createRP1()
...
end sub
sub createRP2()
,...
end sub
End Module
The CreateRP1/CreateRP2 method does not have any arguments. There are some n number of reports. So I do not want to write all those if or switch conditions for this. I want to write some thing simple so I tried this
1 Dim type As Type = "["GetType"]"()
2 Dim method As MethodInfo = type.GetMethod("Create" + user-input)
3 If method IsNot Nothing Then
4 method.Invoke(Me, Nothing)
5 End If
Line 1 and 4 are not working
Line 4 is not working because "me" does not go with module. But how to rewrite 1? I saw this somewhere in StackOverflow site

Answer 1

You can get the Type of the current Module like this:
Dim myType As Type = MethodBase.GetCurrentMethod().DeclaringType
Since it's a Module, all of the methods are essentially Shared (e.g. static, non-instance methods), so you can just pass Nothing for the obj parameter of the MethodInfo.Invoke method:
Dim methodName As String = "Create" & userInput
Dim method As MethodInfo = myType.GetMethod(methodName)
method.Invoke(Nothing, Nothing)
However, rather than using reflection, you may also want to consider using a dictionary of delegates so that it would be more deterministic and type-checked at compile time. For instance:
Dim methods As New Dictionary(Of String, Action)
methods.Add("RP1", AddressOf CreateRP1)
methods.Add("RP2", AddressOf CreateRP1)
' ...
methods(userInput).Invoke()

Answer 2

I think the best solution would be to create a "Report" object through designing a class. Then you could easily make things on the fly.
function (byRef user-input As String) As Report
if not "s" & user-input = "s"
Dim user-report As Report = new Report(user-input)
end if
end function
Then your Report class
Private reportNumber As String
Private data As String
Public Sub New(byVal reportNumber As String)
Sub createRP(byRef repotNumber As String)
// use report # here to select the correct data...
// so if it was sql....
// "SELECT data FROM report_table where report_num =" & reportNumber
end Sub
end Sub