Найти минимальное и максимальное значения массива

    Sub main1(ByVal p As Integer, ByVal x() As Single, ByRef mini As Integer, ByRef maxi As Integer, ByRef comp As Single, ByRef k() As Single) 'нахождение минимального и максимального элемента
        Dim i As Integer
        Dim g As Integer
        Dim Max As Single = Single.MinValue
        Dim Min As Single = Single.MaxValue
        comp = 1
        For i = 0 To UBound(x) 'ищем минимальный элемент
            If x(i) < Min Then
                Min = x(i)
                mini = i
            End If
        Next i
        For i = 0 To UBound(x) 'ищем максимальный элемент
            If x(i) > Max Then
                Max = x(i)
                maxi = i
            End If
        Next i
 
 
 
        If mini > maxi Then 'в зависимости от того, что находится первым: минимальный или максимальный, находим произведение между ними и забиваем в новый массив
            For i = maxi + 1 To mini - 1 'если первый элемент в массиве с максимальным значением
                comp = x(i) * x(i + 1)
            Next
            For i = maxi + 1 To mini - 1
                k(j) = x(i)
                j = j + 1
            Next
        ElseIf maxi > mini Then
            For i = mini + 1 To maxi - 1 'если первый элемент в массиве с минимальным значением
                comp = x(i) * x(i + 1)
            Next
            For i = mini + 1 To maxi - 1
                k(j) = x(i)
                j = j + 1
            Next
        End If
 
    End Sub

'для варианта mini>maxi
Dim t As Integer = mini - maxi - 1
If t > 0 Then
    ReDim k(t - 1)
    For i = maxi + 1 To mini - 1
        comp *= x(i)
        k(i - maxi - 1) = x(i)
    Next
Else
    k = Nothing
    comp = 0
End If