В одномерном массиве найти два максимальных элемента и удалить все элементы между ними - VB

Формулировка задачи:

Есть задача: В одномерном массиве найти два максимальных элемента и удалить все элементы между ними. Массив у меня задается случайным образом, максимальные элементы нахожу, но вот как удалить элементы между ними ума не приложу как только не пробовал, элементы записаны в ЭУ ListBox Задание массива

Private Sub Задать_Click()
max1 = 0
max2 = 0
If Text1.Text = "" Then GoTo 10
razm1 = CInt(Text1.Text)
ReDim a(razm1) As Long
For i = 1 To razm1
a(i) = Round(Rnd() * 10)
Next i
For i = 1 To razm1
List1.AddItem a(i)
Next i
10 End Sub

Первый максимум

Private Sub Max1_Click()
For i = 1 To razm1
If max1 < a(i) Then max1 = a(i) Else
Next i

Второй максимум

Private Sub Command1_Click()
For i = 1 To razm1
If max2 < a(i) And a(i) < max1 Then max2 = a(i) Else
Next i
End Sub

Подсобите разработать код для удаления элементов массива, находящихся между двумя максимальными

Решение задачи: «В одномерном массиве найти два максимальных элемента и удалить все элементы между ними»

textual
                            Листинг программы 
                        

                            Option Explicit
Dim A()
Dim Max1, MAX2, razm1, i
Dim N, K, N0, K0
 
Private Sub Задать_Click()
 Max1 = 0
 MAX2 = 0
 Randomize
 If Text1.Text = "" Then:    MsgBox "Не задан размер массива", vbCritical, "": Exit Sub
 razm1 = CInt(Text1.Text)
 ReDim A(razm1)
  List1.Clear
 For i = 1 To razm1
 A(i) = Round(Rnd() * 10)
  List1.AddItem A(i)
 Next i
 M1 = "": P1 = ""
 M2 = "": P2 = ""
 End Sub
 
Private Sub Max1__Click()
 For i = 1 To razm1
    If Max1 < A(i) Then
       Max1 = A(i)
       N = i
    End If
 Next i
 M1 = Max1: P1 = N
End Sub
 
Private Sub Max2__Click()
 For i = 1 To razm1
    If MAX2 < A(i) And i <> N Then
        MAX2 = A(i)
        K = i
    End If
 Next i
 
If N > K Then
    N0 = K: K0 = N
Else
    N0 = N: K0 = K
End If
M2 = MAX2: P2 = K
End Sub
 
Private Sub Результат_Click()
  List2.Clear
 For i = 1 To razm1
    If i <= N0 Or i >= K0 Then
        List2.AddItem A(i)
    End If
 Next i
End Sub
                        