SamT: Erase by itself throws an error.
Dim ff As Integer
Dim mCr As Integer
Dim mLf As Integer
Dim EraseIt As String
Const DQ = """ 'I hate counting quote marks in code"
Const SQ = "'"
Const Marker = "|" 'Edit to suit
Erase1 = ""
strFile = "U:\TEMP\MyText.txt"
strBuffer = Space(FileLen(strFile))
ff = FreeFile
Open strFile For Binary Access Read As #ff
Get #ff, , strBuffer
Close #ff
'--------------------------------------- This is what is failing
If InStr(strBuffer, DQ) = 1 _
And InStr(strBuffer, vbTab) = 2 Then
strBuffer = Replace(strBuffer, DQ & vbTab, Erase1)
strBuffer = Replace(strBuffer, vbTab, Marker) 'Or use Erase
End If
'---------------------------------------
Kill strFile
Open strFile For Binary Access Write As #ff
Put #ff, , strBuffer
Close #ff
End Sub