prova con

miaRiga=Replace(miaRiga, "<br /><br />","<br />")