Sub tt()
    Dim b$

    b = CreateObject("Scripting.FileSystemObject").OpenTextFile("c:\Downloads\primer_d2.csv", 1).ReadAll
    b = Replace(b, "<br />" & vbCrLf, "")
    SaveTXTfile "c:\Downloads\primer_d22.csv", b

End Sub


Function SaveTXTfile(ByVal filename As String, ByVal txt As String) As Boolean
    On Error Resume Next: Err.Clear
    Set fso = CreateObject("scripting.filesystemobject")
    Set ts = fso.CreateTextFile(filename, True)
    ts.Write txt: ts.Close
    SaveTXTfile = Err = 0
    Set ts = Nothing: Set fso = Nothing
End Function