字符串函数求助，也许你半分钟都解决了……

Question

Private Sub Command1_Click()
    Dim a As String
    Dim b As String
    Dim b_len As Integer
    Dim i As Integer
    a = "abc"
    b_len = Len(a)
    For i = 1 To b_len
        b = b & MidB(a, i, 1)
    Next i
    Text1.Text = b
End Sub执行时得不到"c",对于数字也是一样，是什么原因，怎么解决呢？

Answer 1

把
b = b & MidB(a, i, 1)
换成
b = b & Mid(a, i, 1)

Answer 2

 mid: 从一个字符串中返回指定数目的字符
midb: 从一个字符串中返回指定数目的字节注意：字符和字节的差别

Answer 3

'/////最好写成这样：
Private Sub Command1_Click()
    Dim a As String, b As String, b_len As Integer, i As long
    a = "abc"
    b_len = Len(a)
    For i = 1 To b_len
        b = b & Mid(a, i, 1)
    Next
    Text1.Text = b
End Sub