Also erstmal heißt es App.Path & App.EXEName & ".exe" und nicht ThisExe... Zweitens musst du einen Delimiter angeben: Also beim Crypter die Zeilen so verändern:und dann bei der stub:Code:Open App.Path & "\Test.exe" For Binary As #1 Put #1, , StubData & "|||" & abc Close #1Code:SplittedData() = Split(Data, "|||")