二個字串各一次取一個合併

'講解二個字串各一次取一個合併
Public Class Form1
    Dim i
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'Dim r3 = "拾佰仟萬拾佰仟億拾佰仟兆"

        Dim r3 = "萬仟佰拾"
        Dim r4 = "壹貳参肆伍"

        Dim str1 = ""
        For i = 1 To 4
            str1 = str1 & Mid(r4, i, 1) & Mid(r3, i, 1)
        Next
        str1 = str1 & Microsoft.VisualBasic.Right(r4, 1)
        MsgBox(str1)
    End Sub
End Class