VBAのパターンマッチングで<br />タグだけ残したい

以前こちらのサイトでパターンマッチングによるHTMLタグの削除を教えて頂きました。しかし、やはり見にくいことに気づき<br>タグだけ残したいと思っております。<br />タグだけを除外するパターンを自力で思いつきません。お力添え願います。・

VBA
1'HTMLタグの消去プロシージャ
2Public Function deleteHTML(htmlText As String) As String
3    Dim regObj As New VBScript_RegExp_10.RegExp
4
5    '正規表現オブジェクトの設定
6    With regObj
7        'BRタグを否定的先読みし、残りのHTMLタグにパターンマッチさせる正規表現
8        .Pattern = "(?!\<\s*br\s+/?\s*\>)(\<(""[^""]*""|'[^']*'|[^'""\>])*\>)"
9        '英大文字小文字を区別しない
10        .IgnoreCase = True
11        '文字列全体に対してパターンマッチさせる
12        .Global = True
13    End With
14
15    '正規表現による置換
16    deleteHTML = regObj.Replace(htmlText, "")
17
18    Set regObj = Nothing
19End Function