append text file

I have this code that adds to a text file. Is it possible to place the text at the beginning instead of the end?

for example, in the file it has the following information:
Comp I.D. , CompName , UserName

Using the code below, it adds the txtName information at the end:
Comp I.D. , CompName , UserName , txtName

I would like it to place it at the beginning:
txtName , Comp I.D. , CompName , UserName

[VBA]Open MyPath & MyFile For Append As #1
Print #1, vbTab; txtName;
Close #1[/VBA]

Can someone assist, thank you.

Rewrite the text file


[VBA]Sub test()
Dim FS, A
Dim MyPath As String, MyFile As String, fil As String, X As String

MyPath = "C:\AAA\"
MyFile = "New.txt"

fil = MyPath & MyFile

Set FS = CreateObject("Scripting.FileSystemObject")
Set A = FS.OpenTextFile(fil, 1)
X = A.ReadAll
A.Close
Kill fil

Set A = FS.CreateTextFile(fil)
A.WriteLine ("This is a test.")
A.Write (X)
A.Close


End Sub
[/VBA]