I lost the code to a program I made quite a while back so I was wondering if any one could help.

I have a list box which has file locations loaded into it by the user

After they are loaded they click the merge button and it joins all the files loaded into the listbox into 1 exe

I have this code I upgraded from vb6. I think it is joining the files but only the first one in the list is opening when i run the new exe that is made when they are merged

Code:
Dim sfd As New SaveFileDialog
        If sfd.ShowDialog() = DialogResult.OK Then

            Dim incoming As String
            FileOpen(1, sfd.FileName, OpenMode.Append)


            For i = 0 To ListBox1.Items.Count - 1


                FileOpen(2, Me.ListBox1.Items.Item(i), OpenMode.Binary)
                incoming = Space(LOF(2))

                FileGet(2, incoming)
                FileClose(2)

                PrintLine(1, incoming)
            Next i

            FileClose(1)
        End If