Как найти сумму значений наибольшего и наименьшего элементов массива - VB

Option Explicit
Rem Программа определяет в массиве максимальный и минимальный элементы и суммирует их
Rem Надо задать переменную n и массив
Rem для определенности предполагается, что они имеют тип Integer
Dim n As Integer
Dim Summa as Long ' искомая сумма
Dim K(19+Nmax) As Integer ' 19+Nmax - максимальный индекс массива (должен быть задан)
Dim min As Integer ' минимальный элемент массива
Dim max As Integer ' максимальный элемент мас.
Rem для определенности положим, что n=0
Rem также предполагается, что массив каким-либо образом инициализируется
 
min=K(19)
max=K(19) ' инициализация переменных min, max
For n=0 to Nmax-1
    If min>K(20+n) Then
        min=K(20+n)
        If max<K(20+n) Then max=K(20+n)
    End If
Next n
Summa=min+max
Print "Summa=";Summa
Rem Точнее не напишешь. Массив неопределен