Appending data of text file to another text file using VBA MS excel

[Asher David]

on part of:

Do While Len(myfile) > 0
Open myfolder & myfile For Input As 1

It always say file already open.