vbs中的正则表达式替换

现在有一个字符串。
比如：
str="aaaaa<br />bbbbbbbb<br /><br />cccccccccc"
想替换的是单独的一个<br />的替换成<br /><br />,如果有连续两个以上的，就不替换。就像这个字符串，只替换第一个，而第二、第三个就不用替换。
在线等，用vbs写。急用哈！
一楼的如果是<br />后面有一个“<”，就不行了。请补充一下！

【落vs寂】,你的vbs遇到更复杂的情况就不行了，不信你试试【溜须拍马关云长】那串字符。【溜须拍马关云长】，你那个也有问题，你那串字符里面的<br /><br />会被替换为<br /><br /><br />。

看看我滴（已验证，无论任何情况都能达到要求！）：
str="a<br /><bb<br /><br /><br />ccc<br /><br /><br /><br />dddd<br />eeeee<br />ffffff<br />"
str = replace(str,"<br />","#")

mark = 0
for i = 1 to len(str)
if mid(str,i,1) = "#" then
mark = mark + 1
temp = temp & mid(str,i,1)
else
if mark = 0 then
temp = temp & mid(str,i,1)
elseif mark = 1 then
temp = temp & "#" & mid(str,i,1)
mark = 0
elseif mark > 1 then
temp = temp & mid(str,i,1)
mark = 0
end if
end if
next

if mark = 1 then