Перебор элементов массива. Выход за диапазон - VBA

Формулировка задачи:

Добрый день всем! Не могу понять, как мне правильно написать код, чтобы не происходил выход из диапазона.

Dim arr(1 to 10) as Varinat                   ' определяю массив, который потом заполняю данными, которые беру из таблицы в Экселе
Dim x as Varinat
 
...
 
For i = LBound(arr) to UBound(arr)
   If x < arr(i) then                              ' если значение переменной меньше i-го элемента массива    
      (вычисления)
   ElseIF arr(i) < x < arr (i+1) then      ' если значение переменной больше i-го элемента, но меньше i+1-го элемента  
      (вычисления)
   ElseIF 
      (вычисления)

Проблема в том, что когда i = UBound(arr) (последнему элементу массива), то arr(i+1) находится вне диапазона и код дальше не идет (что логично). Каким образом можно исправить код, чтобы условия корректно исполнялись? Количество элементов массива ограничено и заранее известно. Может быть стоит составлять условия в зависимости от значения i ? Спасибо.

Решение задачи: «Перебор элементов массива. Выход за диапазон»

textual
                            Листинг программы 
                        

                            Dim e As Variant, arr(1 To 2) As Variant
arr(1) = 2
arr(2) = 4
For Each e In arr
MsgBox e
Next
                        