combining arrays

[ober0330]

I have two arrays that are created with the following code and then attempted to be concatenated with the last for loop. However it gives a "subscript out of range" error after only one iteration!? help!?

intmon = Format(strx, "mm")
intyr = Format(strx, "yy")
 
Open "O:\ER2002\Inetlog\" & intyr & "\" & intmon & "\" & intmon & "e.htm" For Input As #1
    rtb1.LoadFile "O:\ER2002\Inetlog\" & intyr & "\" & intmon & "\" & intmon & "e.htm"
Close #1
    arrmon = Split(rtb1, "</a></div>")
i = UBound(arrmon, 1)
 
intmon = Format(Now, "mm")
intyr = Format(Now, "yy")
 
Open "O:\ER2002\Inetlog\" & intyr & "\" & intmon & "\" & intmon & "e.htm" For Input As #1
    rtb1.LoadFile "O:\ER2002\Inetlog\" & intyr & "\" & intmon & "\" & intmon & "e.htm"
Close #1
    arrmon2 = Split(rtb1, "</a></div>")
    
For x = 0 To UBound(arrmon2, 1)
     arrmon(i) = arrmon2(x)
     i = i + 1
Next x