Sub Test5()
        Dim Assembly_Load                       As System.Reflection.Assembly = _
          System.Reflection.Assembly.Load("Beispiel")
 
        Dim Type_Beispiel                       As System.Type = _
          Assembly_Load.GetType("Beispiel.CALCULATION") 
 
        Dim obj_Instance_Beispiel               As System.Object = Nothing
        Dim obj_Result_Invoke                   As System.Object = Nothing
        Dim Array_objects_Invoke(3-1)           As System.Object
        Dim MethodInfo_Addition_Byte            As System.Reflection.MethodInfo _
          = Type_Beispiel.GetMethod("Addition_Byte")
 
        obj_Instance_Beispiel = System.Activator.CreateInstance(Type_Beispiel)
 
        Array_objects_Invoke(0) = CByte(System.Byte.MaxValue)
        Array_objects_Invoke(1) = CByte(System.Byte.MaxValue)
        Array_objects_Invoke(2) = CByte(0)
 
        obj_Result_Invoke = MethodInfo_Addition_Byte.Invoke( _
          obj_Instance_Beispiel, Array_objects_Invoke)
 
    End Sub

Imports System.Reflection
 
Module Module1
 
  Sub Main()
    Dim ergebnis = Test1()
    Stop
  End Sub
 
  Function Test1() As Integer
    Dim t As Type = GetType(Module1)
    Dim mi As MethodInfo = t.GetMethod("Addition_Byte")
    Dim b1, b2 As Byte
    b1 = 250 : b2 = 13 '250 + 13 = Überlauf
    Return CInt(mi.Invoke(Nothing, {b1, b2}))
  End Function
 
  Function Addition_Byte(b1 As Byte, b2 As Byte) As Byte
    Return b1 + b2
  End Function
 
End Module

Return CInt(mi.Invoke(Nothing, {b1, b2}))