Perfect! Here is the code that I changed and it works like a charm. I'm sure there is a better/easier way to do it but this works.
Dim i, j, k
k=0
For i=0 to ubound(SVRArray,1)
For j=0 to ubound(SQLArray,1)
objFile.WriteLine fixStrLen(SVRArray(i), 32) & fixStrLen(SQLArray(j,k), 10)
k=k+1...