Дан массив действительных чисел. Поменять местами наибольший и наименьший элементы заданного массива - VB

Sub Swap(A() As Integer, Optional imin As Integer = 1, Optional imax As Integer = 1, Optional i As Integer = 1)
 
    If (i >= UBound(A, 1)) Then
       tmp% = A(imin)
       A(imin) = A(imax)
       A(imax) = tmp%
       Exit Sub
    Else
       Swap A(), IIf(A(i + 1) < A(imin), i + 1, imin), IIf(A(i + 1) > A(imax), i + 1, imax), i + 1
    End If
 
End Sub