This should work if I'm understanding what your looking for:<br>
Dim MySet(4, 4) As String<br>
Dim i As Integer<br>
<br>
MySet(0, 0) = "1"<br>
MySet(1, 0) = "First"<br>
MySet(0, 1) = "2"<br>
MySet(1, 1) = "Second"<br>
MySet(0, 2) = "3"<br>...