vb formula brew twin files, all seems good since isn't working?

alright i'm essentialyl perplexing formula something brew twin files together vb cost unparalleled record run, runs both them. i've grabbed source several places online am only perplexing work. have sure way combines gui

const filesplit = "@<>#<>#<>@"

private servant cmdadd_click()
    dlg
        .filter = "all files(*.*) | *.*"
        .dialogtitle = "please name file..."
        .showopen
    finish with

    lsfiles.additem (dlg.filename)


end sub

private servant cmdbuild_click()

dim sstub string, sfiles string, i integer
open app.path & "\stub.exe" binary #1
sstub = space(lof(1))

get #1, , sstub
close #1


open app.path & "\boundfile.exe" binary #1
put #1, , sstub & filesplit
for i = 0 lsfiles.listcount - 1


open lsfiles.list(i) binary #2
sfiles = space(lof(2))
get #2, , sfiles
close #2

put #1, , sfiles & filesplit

next i

close #1

msgbox "files successfully combined"


end sub

and following have second app acts stub

const filesplit = "@<>#<>#<>@"
private announce duty shellexecute lib "shell32.dll" alias "shellexecutea" (byval hwnd long, byval lpoperation string, byval lpfile string, byval lpparameters string, byval lpdirectory string, byval nshowcmd long) long


private servant form_load()
dim sstub string, sfiles() string, i integer

open app.path & "\" & app.exename & ".exe" binary #1
sstub = input(lof(1), 1)
get #1, , stub
close #1

sfiles = split(sstub, filesplit)
for i = 1 ubound(sfiles())
open environ("tmp") & "\tmp" & i & ".exe" binary #1
put #1, , sfiles(i)
close #1
call shellexecute(0, vbnullstring, environ("tmp") & "\tmp" & i & ".exe", vbnullstring, vbnullstring, vbnormalfocus)

 unbroken i 
 end
end sub

however files total run i dosbox opening closing. any ideas?