如下情况的正则表达式如何编写?

strHtml的内容:
<html>
.....
.....
<b><a>链接1</a></b> 
.....
.....
</html>
我想查看链接1是否加粗 
有两个问题
1 把中文加进去
2 排除 <a>链接1</a></a> 的情况 
下面我自己写的 
dim objReg
set objReg = CreateObject("VBScript.RegExp") 
objReg.pattern = "<b>[.\n]+<a>[.\n]+链接1<\/a>[.\n]+<\/b>" 
if objReg.test(strHtml) then 
     debug.print "match" 
else
     debug.print "mismatch"
end if