[pavvel]

Dim fso, f, FileName
Const USER_PROFILE = &H28&
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.Namespace(USER_PROFILE)
Set objFolderItem = objFolder.Self
Set fso = CreateObject("Scripting.FileSystemObject")

NewLine=objFolderItem.Path

Set f = fso.OpenTextFile("C:\test.txt", 1)
ReadAllTextFile = f.ReadAll

Set f = fso.OpenTextFile("C:\test.txt", 2, True)
f.WriteLine("test.txt" & "_" & NewLine)
f.Write(ReadAllTextFile)

MsgBox "Готово!"

ввод данных за пределами файла

UPD просто файл был пустой. Спасибо разобрался)