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

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

Function CheckArr(Arr() as integer, Optional c as integer = 1) As Boolean
   if (c > Ubound(Arr,1)) then
      CheckArr=False
   elseIf (c = Arr(c)) then
      CheckArr=True
   else
      CheckArr=CheckArr(Arr,c+1)
   end if
End Function

Function CheckArr(Arr() As Integer) As Boolean
   For i% = LBound(Arr) To UBound(Arr) - 1
       If Arr(i%) = i% Then
          CheckArr = True
          Exit Function
       End If
  Next i%
End Function
 
Private Sub Form_Load()
Dim A(0 To 5) As Integer
      A(0) = 1
      A(1) = -1
      A(2) = 3
      A(3) = -3
      A(4) = 0
      A(5) = 6
      If CheckArr(A) Then
         Me.Caption = "true"
      Else
         Me.Caption = "false"
      End If
End Sub

         Debug.Print "Есть"
      else
         Debug.Print "Нет"

 
   For i% = LBound(Arr,1) To UBound(Arr,1) ' - 1 отнимать единицу не нужно

Dim A(10) As integer