Your code in #1

TempStr = Replace(TempStr, "<br>", "<p></p>")
just replaced a break with an empty paragraph, so that's what my macro did in #8


Your SendKeys in #9 is now replacing a break with a break+empty paragraph


Depending on what it is you really want to do, this macro will replace a break with a break+empty paragraph

The only change was changing the 'Replace With' parameter


Option Explicit
Sub try6()
     
    Dim vFF As Integer, TempStr As String
     
    vFF = FreeFile
     
    Open "C:\users\userid\desktop\Sample.htm" For Binary As vFF
    TempStr = Space$(LOF(vFF))
    Get #vFF, , TempStr
    Close vFF
     
    MsgBox Len(TempStr)
    TempStr = Replace(TempStr, "<br>", "<br><p></p>")
    MsgBox Len(TempStr)
     
    Open "C:\users\userid\desktop\Sample_1.htm" For Binary As vFF
    Put #vFF, , TempStr
    Close vFF
End Sub