Найдите разницу между наибольшими и наименьшим значением массива - VB

Function varArr(A() As Integer, Optional amax As Integer = 0, _
                               Optional amin As Integer = 0, _
                               Optional n As Integer = 0) As Integer
 If n = 0 Then
    varArr = varArr(A, A(1), A(1), 1)
 Else
    k% = n + 1
    If k% > UBound(A, 1) Then
       varArr = amax - amin
    Else
       If A(k%) > amax Then
          varArr = varArr(A, A(k%), amin, k%)
       ElseIf A(k%) < amin Then
          varArr = varArr(A, amax, A(k%), k%)
       Else
          varArr = varArr(A, amax, amin, k%)
       End If
    End If
 End If
End Function
 
Sub test()
Dim X(1 To 5) As Integer
    X(1) = 2
    X(2) = 0
    X(3) = 14
    X(4) = 61
    X(5) = -1
    Debug.Print varArr(X)  ' печать 62 - верно
End Sub