Дан одномерный массив из N элементов. Заменить элементы массива между минимальным и максимальным на те же элементы в обратном порядке

Private Sub Command2_Click()
Picture3.Cls
n = Val(Text1)
For i = 1 To n
    a(i) = -1000 + Int(Rnd * (2000))
Picture3.Print a(i);
Next
Picture3.Print
Picture3.Print "Ïîñëå äåéñòâèè:"
Max = a(1): Min = a(1)
For i = 1 To n
    If a(i) > Max Then Max = a(i): w = i
    If a(i) < Min Then Min = a(i): e = i
Next
If e < w Then
    For i = e To w
     r = a(i)
     a(i) = a(w - i)
     a(w - i) = r
    Next
   Else
    For i = w To e
     r = a(i)
     a(i) = a(e - i)
     a(e - i) = r
    Next
End If
For i = 1 To n
    Picture3.Print a(i);
Next
End Sub

Private Sub Command2_Click()
Picture3.Cls
n = Val(Text1)
For i = 1 To n
a(i) = -1000 + Int(Rnd * (2000))
Picture3.Print a(i);
Next
Picture3.Print
Picture3.Print "Ïîñëå äåéñòâèè:"
Max = a(1): Min = a(1)
For i = 1 To n
    If a(i) > Max Then Max = a(i): w = i
    If a(i) < Min Then Min = a(i): e = i
Next
ReDim c((Abs(e - w)) - 1)
If e < w Then
For i = 1 To Abs((e - w)) - 1
 c(i) = a(e + i)
Next i
Else
For i = 1 To Abs((e - w)) - 1
 c(i) = a(w + i)
Next i
End If
j = Abs((e - w)) - 1
If e < w Then
For i = 1 To j
   a((e + i)) = c((j + 1) - i)
Next i
Else
For i = 1 To j
   a((w + i)) = c((j + 1) - i)
Next i
End If
For i = 1 To n
    Picture3.Print a(i);
Next i
End Sub