Передача строки на внешний DLL файл

Imports System.IO
Public Class Form1
 
    Dim modules As New List(Of String)
    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        ListBox1.Items.Clear()
        Dim path As String = "modules"
        If Directory.Exists(path) = True Then
            Dim files As String() = Directory.GetFiles(path, "*.dll", SearchOption.TopDirectoryOnly)
            For Each s As String In files
                ListBox1.Items.Add(s)
                modules.Add(s)
            Next
        End If
    End Sub
 
    Public Sub EnterDLL(ByVal LastPath As String)
        Dim assemblyFile As String = IO.Path.Combine(Application.StartupPath, LastPath)
        Dim _assembly = Reflection.Assembly.LoadFile(assemblyFile)
        Try
            Dim _type = CType(_assembly.GetExportedTypes.GetValue(0), Type)
            With _type
                Dim result = .InvokeMember("NAME_1", Reflection.BindingFlags.InvokeMethod, Nothing, _type, Nothing)
                TextBox1.Text = result
            End With
            Dim _type2 = CType(_assembly.GetExportedTypes.GetValue(0), Type)
            With _type2
                Dim result = .InvokeMember("NAME_2", Reflection.BindingFlags.InvokeMethod, Nothing, _type2, Nothing)
                TextBox2.Text = result
            End With
            Dim _type3 = CType(_assembly.GetExportedTypes.GetValue(0), Type)
            With _type3
                Dim result = .InvokeMember("NAME_3", Reflection.BindingFlags.InvokeMethod, Nothing, _type3, Nothing)
                TextBox3.Text = result
            End With
        Catch ex As Exception
            TextBox1.Text = "Неизвестный модуль"
            TextBox2.Text = ""
            TextBox3.Text = ex.Message
        End Try
    End Sub
    Private Sub LisACT(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        EnterDLL(modules(ListBox1.SelectedIndex))
    End Sub
 
End Class

Public Class Class1
    Shared Function NAME_1()
        Return "Данные1"
    End Function
    Shared Function NAME_2()
        Return "Данные2"
    End Function
    Shared Function NAME_3()
        Return "Данные3"
    End Function
End Class

Public Class Class1
    Dim name1 As String = "Данные1"
    Dim name2 As String = "Данные2"
    Dim name3 As String = "Данные3"
 
    Public Function GetNAME_1() As String
        Return name1
    End Function
    Public Function GetNAME_2() As String
        Return name2
    End Function
    Public Function GetNAME_3() As String
        Return name3
    End Function
 
 
    Public Sub SetNAME_1(ByVal s As String)
        name1 = s
    End Sub
    Public Sub SetNAME_2(ByVal s As String)
        name2 = s
    End Sub
    Public Sub SetNAME_3(ByVal s As String)
        name3 = s
    End Sub
End Class

Imports System.Threading.Thread
 
Public Class Class1
    Shared WithEvents SerialPort1 As New System.IO.Ports.SerialPort
    Shared Function SetNAME_1()
        Dim ThreadSP As New System.Threading.Thread(AddressOf Class1.OpenPort)
        ThreadSP.Start()
        Return OpenPort()
    End Function
    Shared Function OpenPort()
        SerialPort1.PortName = "COM1"
        SerialPort1.BaudRate = "9600"
        SerialPort1.StopBits = IO.Ports.StopBits.One
        Return "PORT OPENED"
    End Function
    Shared Function SetNAME_2()
        Return "Privet"
    End Function
    Shared Function SetNAME_3()
        Return "Privet3"
    End Function
End Class

Shared Function NAME_1()
        Return "Данные1"
End Function

Class MyType
    Private myField As Int32
    Public Sub New(ByRef x As Int32)
        x *= 5
    End Sub
    Public Overrides Function ToString() As [String]
        Return myField.ToString()
    End Function
    Public Property MyProp() As Int32
        Get
            Return myField
        End Get
        Set(value As Int32)
            myField = value
        End Set
    End Property
End Class

 Private Sub EnterDll()
        Dim LastPath As String = "D:\ClassLibrary1.dll"
        Dim assemblyFile As String = IO.Path.Combine(Application.StartupPath, LastPath)
        Dim _assembly = Reflection.Assembly.LoadFrom(assemblyFile)
        Dim t = _assembly.GetTypes.GetValue(5)
        Dim args As [Object]() = New [Object]() {8} ' Этот аргумент можно установить через конструктор библиотеки
        Dim obj As [Object] = t.InvokeMember(Nothing, BindingFlags.DeclaredOnly Or BindingFlags.[Public] Or BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.CreateInstance, Nothing, Nothing, args)
        Dim v As Int32 = DirectCast(t.InvokeMember("myField", BindingFlags.DeclaredOnly Or BindingFlags.[Public] Or BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.GetField, Nothing, obj, Nothing), Int32)
        t.InvokeMember("MyProp", BindingFlags.DeclaredOnly Or BindingFlags.[Public] Or BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.SetProperty, Nothing, obj, New [Object]() {9}) ' 9 - то число, которое устанавливаем.
        v = DirectCast(t.InvokeMember("MyProp", BindingFlags.DeclaredOnly Or BindingFlags.[Public] Or BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.GetProperty, Nothing, obj, Nothing), Int32)
        MsgBox("MyProp: " & v)
    End Sub