Определить стоимость бензина, затраченного на поездку в другой город

Option Explicit
Dim i As Integer
Dim N As Integer
Dim k As Integer
Dim mass() As Integer
Dim max As Integer
Dim min As Integer
Dim MaxIndex As Integer
Dim MinIndex As Integer
 
Private Sub Command1_Click()
 
N = InputBox("enter N")
ReDim mass(N)
            For i = 1 To N
                    mass(i) = InputBox("Введите последовательность по одному")
            Next i
           max = mass(1)
           min = mass(1)
        For i = 1 To N - 1
            
                If max < mass(i + 1) Then max = mass(i + 1): MaxIndex = i
                If min > mass(i + 1) Then min = mass(i + 1): MinIndex = i
                
        Next i
        
        For i = 1 To N
        If mass(i) <> max And mass(i) <> min Then
            k = k + mass(i)
        End If
        Next i
        Text3.Text = k / (N - 2)
                    
            
End Sub

Option Explicit
Dim i As Integer, k As Integer
Dim N As Integer
Dim mass(), mass_1()
Dim max As Integer, min As Integer, S
 
 
 
Private Sub Command1_Click()
 
 
N = Val(InputBox("Вводим N", , 3))
If N < 3 Then
MsgBox "некорректный ввод " & vbNewLine & "повторите ввод"
Exit Sub
End If
 
ReDim mass(N)
List1.Clear
 
For i = 1 To N
mass(i) = Val(InputBox("Введите a(" & i & ")"))
List1.AddItem mass(i)
Next i
 
max = mass(1)
min = mass(1)
 
For i = 2 To N
If max < mass(i) Then max = mass(i)
If min > mass(i) Then min = mass(i)
Next i
 
 
k = 0
For i = 1 To N
If max <> mass(i) And min <> mass(i) Then
k = k + 1
ReDim Preserve mass_1(k)
mass_1(k) = mass(i)
End If
Next i
 
List2.Clear
If k > 0 Then
S = 0: k = UBound(mass_1)
For i = 1 To k
S = S + mass_1(i)
List2.AddItem mass_1(i)
Next i
List2.AddItem ""
List2.AddItem "Среднее ар"
List2.AddItem "S = " & S / k
Else
MsgBox "элементов, отличных от макс. или мин., не найдено"
End If
End Sub