把全角的数字转换成半角

很多时候简单的事情往往会想复杂了……
全角的数字总共才10个,直接change

Function ConvertNum(Byval Str)
  Dim i,TempStr
  Str=Trim(Str)
  If Str="" Or Isnull(Str) Then
    ConvertNum=""
    Exit Function
  End If
  TempStr=""
  ConvertNum=""
  
  For i=0 To Len(Str)
    TempStr=Mid(Str,i+1,1)
    Select Case TempStr
      Case "０":ConvertNum=ConvertNum&"0"
      Case "１":ConvertNum=ConvertNum&"1"
      Case "２":ConvertNum=ConvertNum&"2"
      Case "３":ConvertNum=ConvertNum&"3"
      Case "４":ConvertNum=ConvertNum&"4"
      Case "５":ConvertNum=ConvertNum&"5"
      Case "６":ConvertNum=ConvertNum&"6"
      Case "７":ConvertNum=ConvertNum&"7"
      Case "８":ConvertNum=ConvertNum&"8"
      Case "９":ConvertNum=ConvertNum&"9"
      Case Else:ConvertNum=ConvertNum&TempStr
    End Select      
  Next
End Function