主题：关于中文货币格式转成数字的问题

Dim str As String = "壹万贰千叁佰肆拾伍圆壹角贰分"
Dim s1 As String = "万千佰拾角分"
Dim s2 As String = "壹贰叁肆伍"
Dim s3 As String = "12345"
For i As Integer = 0 To s2.length-1
    str = str.Replace(s2(i), s3(i))
Next
For Each s As String In s1
    str = str.Replace(s, "")
Next
str = str.replace("圆", ".")

msgbox(str)