Load data to two-dimensional array

Originally Posted by mike7952

Try this

Option Explicit
Sub abc()
 Dim aArr(1 To 1, 1 To 2)
 Dim i As Long
 aArr(1, 1) = "Hello"
 aArr(1, 2) = "World"
 
 For i = 1 To UBound(aArr, 2)
    MsgBox aArr(1, i)
 Next
 
End Sub

Thank you - it seems to work.