保越界错误，请高手指出原因

geian

使用如下代码弹出越界，请高手指出错误。
Dim  answer（1 to 10,1 to 5）transanswer(1 To 10, 1 To 3),  FF As Integer
transanswer(1, 1) = answer(1, 3)
          transanswer(1, 2) = answer(1, 4)
          transanswer(1, 3) = answer(1, 5)
          transanswer1(1, 1) = answer1(1, 3)
          transanswer1(1, 2) = answer1(1, 4)
          transanswer1(1, 3) = answer1(1, 5)
       For y = 2 To 4 'answer数组循环找
aa:
          For z = 1 To 4 '向transanswer数组找
             If answer(y, 3) = transanswer(z, 1) Then
                  y = y + 1
                  GoTo aa:
              Else
                  transanswer(FF + 1, 1) = answer(y, 3)
                  transanswer(FF + 1, 2) = answer(y, 4)
                  transanswer(FF + 1, 3) = answer(y, 5)
                  FF = FF + 1
              End If
          Next z
       Next y