Is there any way to append MS Word files together through VB? I've tried:

Open "c:\word.doc" For Append As #1
Open "c:\part1.doc" For Input As #2
Open "c:\part2.doc" For Output As #3

Do Until EOF(2)
Line Input 2, Z$
Print #1, Z$
Loop

Do Until EOF(3)
Line Input 3, Z$
Print #1, Z$
Loop


But all that is produced is garbage. Any ideas?