Проверка наличия положительных элементов массива, равных их индексу - VB

Function CheckArr(Arr() as integer) As Boolean
   for i%=1 to Ubound(Arr,1)
       If Arr(i%)=i% then
          CheckArr=True
          Exit Function
       End if
  Next i%
End Function
 
Sub Main()
Dim A(1 to 5) as integer
      A(1)=-1
      A(2)=3
      A(3)=3
      A(4)=0
      A(5)=6
      If CheckArr(A) then
         Debug.Print "Есть"
      else
         Debug.Print "Нет"
      end if     
End Sub