Removing a box??

[kiwis]

This is my code and everything works well however there are little boxes after most lines and guess this is where someone hit the space bar after entering it on the online form??

How can I remove it??

ssource = Inet1.OpenURL("http://www.mysite.com/application/get_news.php?id=" & Form1.Text2.Text)
lStart = 1
lEnd = 1
sFindStart = "##"
sFindEnd = "/##"
lStart = InStr(lStart, ssource, sFindStart, vbTextCompare)
If lStart Then
lStart = lStart + Len(sFindStart)
lEnd = InStr(lStart, ssource, sFindEnd, vbTextCompare)
If lEnd > lStart Then
Body = Mid$(ssource, lStart, lEnd - lStart)
NewBody = Replace(Body, "<p>", vbCrLf)
NewBody2 = Replace(NewBody, "</p>", vbCrLf)
NewBody3 = Replace(NewBody2, "</br>", vbCrLf)
NewBody4 = Replace(NewBody3, "<br>", vbCrLf)
Text5.Text = NewBody4
'Text5.Text = Mid$(ssource, lStart, lEnd - lStart)
Else
Debug.Print "End text not found."
End If
Else
Debug.Print "Text not found."
End If