Private Sub Command1_Click()
Text1 = StringToNember(Text1)
End Sub
Public Function StringToNember(StrValue As String) As String
Dim Context As String
Dim Index As Integer
Dim StrLen As Integer
Dim Msg As String
Context = StrValue
StrLen = Len(Context)
For i = 1 To StrLen
Index = Int(Val(Mid(Context, i, 1)))
' Mid(Context, i, 1) = Mid("零一二三四五六七八九", Index + 1, 1)
Msg = Msg & Mid("零一二三四五六七八九", Index + 1, 1)
Next
' StringToNember = Context
StringToNember = Msg
End Function
