I can't make sense out of what you want to do, so instead I'll give you an example of how 2d string arrays actually work.
Const DIM1_COUNT = 4 Const DIM2_COUNT = 2 Dim strings_2d$(DIM1_COUNT-1,DIM2_COUNT-1) strings_2d(0,0) = "porkchop" strings_2d(1,0) = "sandwiches" strings_2d(2,0) = "make" strings_2d(3,0) = "the" strings_2d(0,1) = "world" strings_2d(1,1) = "go" strings_2d(2,1) = "around" strings_2d(3,1) = "again" For index_2 = 0 To DIM2_COUNT-1 For index_1 = 0 To DIM1_COUNT-1 Print "strings_2d("+index_1+", "+index_2+") = " + strings_2d(index_1, index_2) Next Next