VB6.0の正規表現を使って、文字列を変更する方法は？

よろしくお願いします。
VB6.0を使っています。
正規表現を使って、文字列を変更したいと思っています。

<DIV class=sub_pane1></DIV>
<DIV class=sub_pane2></DIV>
<DIV id=sub_pane3></DIV>
　↓↓↓
<DIV></DIV>

上記も文字列の変更のソースを書いたのですがなぜかできません。
つまり、DIVの属性を無くしたいのです。
何が問題なのでしょうか？

Dim s As String
s = "<DIV class=sub_pane1></DIV>"
s = Replace(s, "<DIV*>", "")

No.3 回答者： n-jun 回答日時： 2009/02/25 14:37

ExcelVBAで使うことが多いので、VB6であっているのかは定かでないですが。

Dim RegExp As Object
Dim st As String

Set RegExp = CreateObject("VBScript.Regexp")
RegExp.Pattern = "^<DIV([a-z0-9=_ ]+)></DIV>$"
st = "<DIV class=sub_pane1></DIV>"

MsgBox Replace(st, RegExp.Replace(st, "$1"), "")
Set RegExp = Nothing

一応動作はしてました。（VB6で）

No.2 回答者： KG_ 回答日時： 2009/02/25 12:58

サンプルコードでは正規表現ではないようですが、

正規表現をVB6で扱う為にはVBScript.Regexpクラスを使用するのが
一番手っ取り早いですね。

No.1 回答者： miyuyu 回答日時： 2009/02/25 12:10

こんにちは

Rplaceでワイルドカードは使えません
ヘルプを参照ください