'文字列から数字消し
Private Function removeNumber(strIn) As String
'正規表現クラスオブジェクト
Dim reg As New RegExp '参照設定:MicrosoftVBScriptRegularExpressions5.5
'もしくはCreateObject("VBScript.RegExp")でもOK
'検索条件=数字を抽出
reg.Pattern = "[0-90-9]"
'文字列の最後まで検索する
reg.Global = True
'空文字に置き換える
removeNumber = reg.Replace(strIn, "")
End Function
'文字列から数字取得
Private Function getNumber(strIn) As String
'正規表現クラスオブジェクト
Dim reg As New RegExp
'検索条件=数字を抽出
reg.Pattern = "[^0-90-9]"
'文字列の最後まで検索する
reg.Global = True
'空文字に置き換える
getNumber = reg.Replace(strIn, "")
End Function