private sub compilermethod (byval str as string)
 
Dim Code As String = _
    "Imports System.Data" & vbCrLf & _
    "Namespace test " & vbCrLf & _
   "Public Class GetData " & vbCrLf & _
   "Public Function GetData(byval ursprungsdatatabletablerow as" & _
   "system.data.datarow)              as string " & vbCrLf & _
    "return " & str & vbCrLf & _
    "end function " & vbCrLf & _
    "end class " & vbCrLf & _
    "end Namespace"
 
public sub trx()
 
Dim ursprungsdatatable As New DataTable("Lieferdaten")
Dim ursprungsdatatabletablerow As DataRow
 
Try
     CompileMethod(str)
     For Each ursprungsdatatabletablerow In ursprungsdatatable.Rows
     rohdatenstr = CType(method.Invoke(obj, New Object() _
       {ursprungsdatatabletablerow}), String)
     Next ursprungsdatatabletablerow
     Catch ex As Exception
     MessageBox.Show(ex.ToString())
     End Try