全角数字以外を半角化する方法

VB6　WindowsXp
文字列内の全角数値（０～９）以外の文字を半角にする方法を
教えてください。

例）
ア－１２－50-123山田浩輔＆ＡＢＣＤ－２
↓
ア-１２-50-123山田浩輔&ABCD-２

No.1 ベストアンサー 回答者： n-jun 回答日時： 2009/09/02 09:33

Dim myReg As Object

Dim st As String, ss As String
Dim v As Variant

Set myReg = CreateObject("VBScript.RegExp")
myReg.Pattern = "[^０-９]+"
myReg.Global = True

st = "ア－１２－50-123山田浩輔＆ＡＢＣＤ－２"
ss = st

For Each v In myReg.Execute(st)
ss = Replace(ss, v.Value, StrConv(v, vbNarrow))
Next

MsgBox st & vbLf & ss

Set myReg = Nothing

こんな感じの事でしょうか？

この回答への補足

回答ありがとうございました。
いまいち結果が不安定です。
下記の２つですが、全角カッコの半角化が前者の"（"
が半角になっていません。
２と2の違いだけで結果が異なるのはなぜでしょうか？
※下記は画面上ではわかりにくいかもしれませんので、コピペして試してみてください。

1、２、４、東京都新宿区西新宿（２）特
↓NG
1、２、４、東京都新宿区西新宿（２)特
===========================================
1、2、４、東京都新宿区西新宿（２）特
↓OK
1、2、４、東京都新宿区西新宿(２)特

補足日時：2009/09/02 11:06

No.3 回答者： n-jun 回答日時： 2009/09/02 12:18

＃１です。

myReg.Pattern = "[^０-９（）]+|[（）]+"
ですかね。

この回答へのお礼

できました。ありがとうございました。

お礼日時：2009/09/02 16:00

No.2 回答者： yyr446 回答日時： 2009/09/02 11:54

おそらく文字コードの問題でしょう

myReg.Pattern = "[^０１２３４５６７８９]+"
と書けばよい

この回答へのお礼

ありがとうございます。
でも、結果は同じでした。解決していません。
引き続きお願いいたします。

お礼日時：2009/09/02 12:08