VBA正規表現で文字/

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

'文字列から数字取得
Private Function getNumber(strIn) As String
    '正規表現クラスオブジェクト
    Dim reg As New RegExp
    
    '検索条件＝数字を抽出
    reg.Pattern = "[^0-9０-９]"
    '文字列の最後まで検索する
    reg.Global = True
    '空文字に置き換える
    getNumber = reg.Replace(strIn, "")
End Function