數字轉國字大寫

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim s = "1 2 5 8 7 4"
        Dim d = s

        s = Replace(s, "1", "壹")
        s = Replace(s, "2", "貳")
        s = Replace(s, "3", "参")
        s = Replace(s, "4", "肆")
        s = Replace(s, "5", "伍")
        s = Replace(s, "6", "陸")
        s = Replace(s, "7", "柒")
        s = Replace(s, "8", "捌")
        s = Replace(s, "9", "玖")
        s = Replace(s, "0", "零")
        MsgBox(d & "國字大寫為：" & s)
    End Sub
End Class