VBA中，如何将汉字的一或者二？下面分享一下办法

VBA中，如何将汉字的一或者二，转换成对应的1或者2？类似的 三、四、五........ 转换成3、4、5...
例如：

一   1
二   2
三   3
四   4
五   5
六   6
七   7
八   8
九   9
十   10

补充：

For Each rg In Sheet1.Range("b1:b10")
k = k + 1
i = Right(Sheet1.Cells(k, "b"), 2)
        b = Application.WorksheetFunction.Text(i, "[dbnum1]")
        Cells(k, 4) = b
    Next

其实，这个方法很好，只不过是 数字 转换成 汉字 而已。。  
相反：

Public Function NumberToCn(i As Integer) As String
  Select Case i
    Case 0
    NumberToCn = "零"
    Case 1
    NumberToCn = "壹"
    Case 2
    NumberToCn = "贰"
    Case 3
    NumberToCn = "叁"
    Case 4
    NumberToCn = "肆"
    Case 5
    NumberToCn = "伍"
    Case 6
    NumberToCn = "陆"
    Case 7
    NumberToCn = "柒"
    Case 8
    NumberToCn = "捌"
    Case 9
    NumberToCn = "玖"
  End Select
End Function

另外一个代码：

Public Function NumberToCn(str As String) As Integer
  Select Case str
    Case "一"
    NumberToCn = 1
    Case "二"
    NumberToCn = 2
    Case "三"
    NumberToCn = 3
    Case "四"
    NumberToCn = 4
    Case "五"
    NumberToCn = 5
    Case "六"
    NumberToCn = 6
    Case "七"
    NumberToCn = 7
    Case "八"
    NumberToCn = 8
    Case "九"
    NumberToCn = 9
    Case "零"
    NumberToCn = 0
  End Select
End Function