过滤掉多余的空格或回车,该如何解决

过滤掉多余的空格或回车
如下变量值，是从富文本框中传递过来的。

dim aa

aa  = "<SPAN id=comp-paste-div-6505><FONT style="&"FONT-SIZE: 14px"&">2013条件</FONT></SPAN><P><SPAN><SPAN id=comp-paste-div-6505><FONT style="&"FONT-SIZE: 14px"&">一、报考条件　　</FONT></SPAN></SPAN></P>      <P><SPAN><SPAN><FONT style="&"FONT-SIZE: 14px"&">1、笔试报考，原则上应具备《教师法》规定的相应学历条件，根据各地具体报考条件要求进行笔试报考。&nbsp;</FONT></SPAN></SPAN></P>"

现在想通过正则或其它方法，把上面那个变量aa整理成:

aa = "<SPAN id=comp-paste-div-6505><FONT style="&"FONT-SIZE: 14px"&">2013条件</FONT></SPAN><P><SPAN><SPAN id=comp-paste-div-6505><FONT style="&"FONT-SIZE: 14px"&">一、报考条件　　</FONT></SPAN></SPAN></P><P><SPAN><SPAN><FONT style="&"FONT-SIZE: 14px"&">1、笔试报考，原则上应具备《教师法》规定的相应学历条件，根据各地具体报考条件要求进行笔试报考。&nbsp;</FONT></SPAN></SPAN></P>"

即把<p></p>与接下来的<p></p>紧挨着，不保留任何空格或回车。。

该怎么实现？谢谢！
[解决办法]