Массив: найти отношение максимального элемента к минимальному - VB

Sub Task(A() As Integer)
Static i   As Integer
Static min As Integer
Static max As Integer
    If i = 0 Then
       i = 2
       min = A(1)
       max = A(1)
       Task A()
    ElseIf i < UBound(A, 1) Then
       If A(i) > max Then max = A(i)
       If A(i) < min Then min = A(i)
       i = i + 1
       Task A()
    Else
       Debug.Print "max="; max
       Debug.Print "min="; min
       If min = 0 Then
          Debug.Print "@#$%!"
       Else
          Debug.Print "max/min="; max / min
       End If
    End If
End Sub