vb 如何把textbox 中的文本赋值给字符数组

十分简单：
Dim A() As Byte '定义字节数组
A = Text1.Text 'A就是字符串的byte数组了
Text2.Text = A '将字节数组A的内容显示到文本框2

Private Sub Command1_Click()
a = Text1.Text
Dim Arr() As String ‘定义字符数组
For i = 1 To Len(a)
b = Mid(a, i, 1)
ReDim Preserve Arr(i - 1)
Arr(i - 1) = b
k = i
Next
For j = 0 To k - 1
Debug.Print Arr(j) ’测试字符数组
Next
End Sub

1、必须满足的条件：如果文本框是数组控件，声明的数组必须和文本框对应；如果文本框不是数组控件，声明的数组必须和文本框的个数相符；如果声明的数组是动态的，必须声明数组的下标。
2、数组的声明(以20个文本框为例)：静态数组：Dim AA(1 To 20) As String ；动态数组：Dim AA() As String；在后面定义数组下标，ReDim AA(1 To 20)
3、为数组赋值：
文本框为20个数组控件：
For I=1 To 20
AA(I) = Text1(I-1).Text
'注意：I-1 是文本框数组是从0开始的，20个文本框数组控件下标最小为0，最大为19。
'在执行上面语句，文本框的内容赋值给数组了。
Next I
文本框不是数组控件，要逐一赋值，这个就不一一列举了。

4、如果是将一个文本框的内容分别赋值给数组，又是另外的情况，需要根据你的要求才能决定，由于不知你是什么情况，所以不好回答。