Change WikiPage.parseParas to:
Private Function parseParas (txt As String) As String<br/>
'** replace double linefeeds with <p>, single ones with <br><br/>
parseParas = Replace(txt, Chr(10) & Chr(10), "<p>")<br/>
parseParas = Replace(parseParas, Chr(10), "<br>")<br/>
<br/>
'** special case where </h3><br> adds too much line spacing<br/>
parseParas = Replace(parseParas, "</h3><br>", "</h3>")<br/>
parseParas = Replace(parseParas, "</h4><br>", "</h4>")<br/>
parseParas = Replace(parseParas, "<br><li>", "<li>")<br/>
parseParas = Replace(parseParas, "</li><br>", "</li>")<br/>
parseParas = Replace(parseParas, "</ol><br>", "</ol>")<br/>
End Function<br/>