Function Num2Str(Str As String) As String
For i = 1 To Len(Str)
a = Mid(Str, i, 1)
Select Case True
Case a = 0
aa = aa & “ 零”
Case a = 1
aa = aa & “ 壹”
Case a = 2
aa = aa & “ 貳”
Case a = 3
aa = aa & “ 參”
Case a = 4
aa = aa & “ 肆”
Case a = 5
aa = aa & “ 伍”
Case a = 6
aa = aa & “ 陸”
Case a = 7
aa = aa & “ 柒”
Case a = 8
aa = aa & “ 捌”
Case a = 9
aa = aa & “ 玖”
Case Else
aa = aa & a
End Select
Next i
aa = Right(“零 零 零 零 零 零 零 零 零” & aa, 18)
bb = Left(aa, 6) & ” ” & Mid(aa, 7, 2) & ” ” & Mid(aa, 9, 2) & ” ” & Mid(aa, 11, 2) & Right(aa, 6)
Num2Str = bb
End Function