Textdatei AN DEN ANFANG einer Textdatei einfügen

Ich habe folgendes Problem :
Ich möchte den Inhalt einer Textdatei an den Anfang einer anderen Textdatei einfügen. Mit dem Befehl "Append" wird der Text nur an das Ende geschrieben. Kann mir jemand weiterhelfen ?

=================Aktueller Code==========================
Dim i%
Dim TMP$
Close

Open "abc.txt" For Append As #1
Open "bcd.txt" For Input As #2

Do While Not EOF(2)
Input #2, TMP
Print #1, TMP
Loop

Close #2
Close
=================Aktueller Code==========================