Ошибка Run-time Error 13:Type Mismatch Error

    Private Sub CommandButton1_Click()
Dim a, N, i As Single
Dim ARR(1 To 10) As Single
N = Val(TextBox1)
For i = 1 To N
ARR(i) = Val(InputBox(""))
ListBox1.AddItem Str(ARR(i))
Next
 
If ARR(N) > ARR(N - 1) Then
TextBox = N
Else
i = i - 1
Do While (i > 1) And [not((arr[i-1]<arr[i])] And [(arr[i]>arr[i+1])]
Exit Do
i = i - 1
Loop
End If
 
TextBox2 = i
 
End Sub

Dim a As Single, N As Single, i As Single

Private Sub CommandButton1_Click()
N = Val(TextBox1)
ListBox1.AddItem Str(ARR(i))
TextBox = N
TextBox2 = i

Dim ARR(1 To 10) As Single' объявляем массив из 10 элементов
N = Val(TextBox1)' из текстбокса получаем число Тут же вопрос что будет если юзер введет 12 или 12.5?
For i = 1 To N'  запускаем цикл с шагом 1
ARR(i) = Val(InputBox(""))'  а вот тут ответ что будет если юзер загонит число больше 10 ибо элемента массива такого существовать не будет
ListBox1.AddItem Str(ARR(i)) ' заполняем лист бокс (зачем он нужен, но видимо нужен)
Next'  оператор конца тела цикла

If ARR(N) > ARR(N - 1) Then' если последний элемент массива больше предпоследнего (N=10)
TextBox = N' вывести в текст бокс значение N
Else' ветка иначе
i = i - 1' переменную i уменьшить на 1 т.е. i=11-1  i=10

Do While (i > 1) And [not((arr[i-1]<arr[i])] And [(arr[i]>arr[i+1])]
'и вот тут засада
'1. верхняя строка состоит из 3 условий 
' 2 условие может и вызывает удивление но оно рабочее а вот 3 условие
'[(arr[i]>arr[i+1])] - наверное помните что массив arr имеет 10 элементов и верхний индекс у него 10
' в этот момент i=10 соответственно i+1 равно 11  а элемента массива с таким индексом не существует
' 
' 2. строка ниже - зачем был затеян весь этот фортель с циклом если первая строка тела цикла это выход из цикла
Exit Do
i = i - 1'  уменьшаем i на 1
Loop