Массив: Проверка массива на выход за его пределы...

Option Explicit
 
Private Sub Form_Load()
Dim arr(10) As Integer
Dim i As Integer
 
For i = 0 To 20
   'If i > 10 Then Exit For 'работает
   If arr(i) = Null Then Exit For ' не работает
   arr(i) = i * 2
Next i
End Sub

For i = 0 To ubound(arr)

If arr(i) = Null Then s=i-1:Exit For

Option Explicit
 
Private Sub Form_Load()
    Dim arr(10) As Integer, i As Integer, s As Integer
    
 
    For i = 0 To 1000
        On Error GoTo m
        arr(i) = i * 2
    Next i
    
m:   s = arr(i - 1)
    
End Sub

Option Explicit
Dim Tmp As Long ' Если нужны конечные индексы
Dim Mas() As Long ' Массив
Dim Sum As Long
Const N = 1000 ' Const для цикла в пределах разумного
Sub PushBack(Arr() As Long, b As Long) 'Процедура добавления элемента в конец массива
    On Error Resume Next
    If (Not Arr) = -1 Then ReDim Arr(0) Else ReDim Preserve Arr(UBound(Arr) + 1)
    Arr(UBound(Arr)) = b 'Добавил 1 элемент
End Sub
 
Private Sub Form_Click()
Dim i As Long
'Первый цикл
For i = 0 To N
    Sum = Sum + i 'ваши вычисления (это пример)
    If Sum >= 50 Then Tmp = i - 1: Exit For ' условие выхода из цикла, у вас будут свои
    PushBack Mas, Sum 'вызов процедуры
Next
For i = LBound(Mas) To UBound(Mas) 'Печать что в массиве
    Print Mas(i);
Next
Print
Print Tmp; '  конечный индекс,если нужен
'Во втором цикле добавляем с конца массива
Sum = Mas(UBound(Mas))
For i = 0 To N
    Sum = Sum + i
    If Sum >= 150 Then Tmp = Tmp + (i - 1): Exit For
    PushBack Mas, Sum
Next
Print
For i = LBound(Mas) To UBound(Mas) 'Печать результата
    Print Mas(i);
Next
Print
Print Tmp;
End Sub