Sub bb()
Dim t1 'As TextStream
Dim t2 'As TextStream
Dim f1 'As File
Dim s, s2

s = "c:\temp\12345.txt" 'путь к файлу

With CreateObject("scripting.FileSystemObject")
  Set f1 = .GetFile(s)
  Set t1 = f1.OpenAsTextStream(1) '1=ForReading
  s2 = .BuildPath(f1.ParentFolder.Path, .GetTempName)
  With .CreateTextFile(s2)
    t1.ReadLine
    .Write t1.ReadAll
    .Close
  End With
  t1.Close
  f1.Delete
  .GetFile(s2).Move s
End With
End Sub