AccessVBAで複数行(改行)を含むテキストファイルを置換

htmlから特定のコメントアウトで囲まれた部分だけを削除したかった
忘れるのは嫌なので書いてみた

Dim re As RegExp
Set re = New RegExp
sPtn1 = "<!--このコメントアウトから(.|\n)*このコメントアウトまで-->"

With re
    .Pattern = sPtn1 ' パターン文字列を設定します。
    .Multiline = True' 改行を含む。
    .Global = True ' 全体を対象とします。
    result = .Replace("置換対象文字列", "置換したい文字列") ' 置換します。
End With

僕が詰まったのは正規表現の部分。
なかなか複数行の指定ができなかった。
理由はパターンを以下のようにかいていたから。

<!--このコメントアウトから.*?このコメントアウトまで-->