RunTime Error 340 Control array element 'item' doesn't exist - VB

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

Имеется массив элементов А(I). Пользователь может удалить любой элемент из этого массива. Нужно после операции удаления отсортировать этот массив, но в цикле по I при достижении индекса удалённого элемента появляется ошибка RunTime Error 340 Control array element 'item' doesn't exist. Можно ли каким-либо образом удалённый элемент не рассматривать, чтобы обойти данную ошибку?

Решение задачи: «RunTime Error 340 Control array element 'item' doesn't exist»

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

                            Public Function IsNothing(pvar As Variant)
    On Error Resume Next 'Handle errors here
    IsNothing = (pvar Is Nothing)
    On Error GoTo 0 'Reset error handling
End Function
                        