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

'講解二個字串各一次取一個合併
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 r4 = "壹貳参肆伍"
        Dim strl = ""

        For i = 1 To 4
            strl = strl & Mid(r4, i, 1) & Mid(r3, i, 1)
        Next

        'MsgBox(strl & Microsoft.VisualBasic.Right(r4, 1)

        MsgBox(strl & Mid(r4, 5, 1))
    End Sub
End Class