For Each で配列の全ての要素を処理する方法

Option Explicit
 
Sub test()
 
'サイズ5（最大インデックス4）の配列を宣言
Dim strNames(4)
Dim strName 'For Eachの中で配列の要素の値を格納するための変数
 
'配列の各要素に値を代入
strNames(0) = "太郎"
strNames(1) = "次郎"
strNames(2) = "三郎"
strNames(3) = "四朗"
strNames(4) = "五郎"
 
'配列内の各要素を１個ずつ取り出して処理
For Each strName In strNames
    Debug.Print (strName)
Next
 
End Sub 

Option Explicit
 
Sub test()
 
'サイズ2×4の配列を宣言
Dim strNames(1, 3)
Dim strName 'For Eachの中で配列の要素の値を格納するための変数
 
'配列の各要素に値を代入
strNames(0, 0) = "太郎"
strNames(0, 1) = "次郎"
strNames(0, 2) = "三郎"
strNames(0, 3) = "四郎"
strNames(1, 0) = "一子"
strNames(1, 1) = "二子"
strNames(1, 2) = "三子"
strNames(1, 3) = "四子"
 
For Each strName In strNames
    Debug.Print (strName)
Next
 
End Sub