Const FullName As String = "C:\temp\proba.txt"
Open FullName For Append Access Read Write As #1
Write #1, ActiveCell.Value
Close #1

Na, megvan ez is :)) nem Write, hanem Print a file-ba írás, akkor nem lesz idézőjel (") a sorok elején és végén, hurrá!