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

Private Sub Command1_Click()
    Dim arrA&(), arrB$(), i&
    
    ReDim arrA(2)
    ReDim arrB(2)
    
    For i = 1 To 2
        arrA(i) = i
        arrB(i) = i
        Debug.Print arrA(i) & "[" & arrB(i) & "]"
    Next
    
    Debug.Print "--------------"
    
    ReDim arrA(2)
    ReDim arrB(2)
    
    For i = 1 To 2
        Debug.Print arrA(i) & "[" & arrB(i) & "]"
    Next
End Sub

运行结果：

1[1]
2[2]
--------------
0[]
0[]