Editing a text file from VBA

Hi, Mike ,

maybe you can start with a sample like this:

Sub EF972540()
Dim strPath As String
Dim strText As String
Dim intFile As Integer

Const cstrSAMPLE As String = "Sample.txt"

strPath = ThisWorkbook.Path & "\" & cstrSAMPLE
If Dir(strPath) = "" Then
  MsgBox "Couldn´t find '" & cstrSAMPLE & "'!"
  End
End If

intFile = FreeFile
Open strPath For Input As intFile
  Line Input #intFile, strText
Close

intFile = FreeFile
Open strPath For Output As intFile
  Print #intFile, strText
Close

End Sub

Ciao,
Holger