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:
Code:
 Open App.Path & "\Test.exe" For Binary As #1 Put #1, , StubData  & "|||"  & abc Close #1
und dann bei der stub:
Code:
         SplittedData() = Split(Data, "|||")