Dim headerS(NumberOfColumns) As String
Dim allListData As List
Dim config(NumberOfColumns) As String
allListData.Initialize
allListData.Clear
config(0) = "x"
config(1) = "x"
config(2) = "x"
config(3) = "x"
config(4) = "x"
config(5) = "x"
config(6) = "x"
allListData.Add(config)
"line A" ----> config = allListData.Get(0) 'verify data was saved correctly
For i = 1 To 12
tableHeader.Initialize("")
tableHeader = BudgetTable(i).RetrieveHeader
headerSize = headerS.Length
For j = 0 To headerS.Length - 1
L = tableHeader.GetView(j)
headerS(j) = L.Text
Next
allListData.Add(headerS)
"Line B" --------> config = allListData.Get(0) 'verify the first row is still there
Line C -----> config = allListData.Get(1) 'verify second row is fine
Next