Dim fso, f, Msg
   Set fso = CreateObject("Scripting.FileSystemObject")
   Set f = fso.OpenTextFile("file.txt", ForWriting, True)
   Set f = fso.OpenTextFile("file.txt", ForReading)
   str = f.readline
   f.writeline str
   f.Close