新建From1（窗体），新建Command1（按钮CommandButton），代码：

Private Sub Command1_Click()
    Dim arrA$(1), arrB$()
    ReDim arrB(1) '必须使用动态数组才能赋值
    
    arrA(0) = 1
    arrA(1) = 2
    
    arrB = arrA
    
    Debug.Print arrB(0)
    Debug.Print arrB(1)
End Sub

运行结果：

1
2