宏运行时错误'9'：下标超出宏的范围

Question

我正在用VBA写一个宏。如果你在excel中按下一个按钮，它就会执行代码。下面是代码的第一部分。如果我执行这个程序，我会得到运行时错误9，下标超出范围。如何解决此错误？错误指向ReDim rij(1 To z) As Integer

ThisWorkbook.Sheets("InvoerIO").Range("O1") = z

ReDim rij(1 To z) As Integer  

For r = 1 To ThisWorkbook.Sheets("InvoerIO").Range("O1")         
    If r > 7 Then
        z = ThisWorkbook.Sheets("InvoerIO").Range("O1")
        rij(r) = rij(r - 1)    
        If Sheets("InvoerIO").Cells(r, 3).value = "part1" Then        
            rij(r) = 90

等。