вставить элемент передм max и min элементами

ReDim Preserve arr(1 To n + 1)
For i = n + 1 To minI + 1
arr(i) = arr(i - 1)
Next i

ReDim Preserve arr(1 To n + 1)
For i = n + 1 To minI + 1
arr(i) = arr(i - 1)
Next i

Private Sub Command1_Click()
Dim arr() As Single, n As Byte
Dim max As Single, min As Single
Dim maxI As Byte, minI As Byte
Dim answer
n = InputBox("N")
ReDim arr(1 To n) As Single
arr(1) = Int(100 * Rnd - 50)
max = arr(1)
maxI = 1
answer = arr(1) & Space(2)
For i = 2 To n
arr(i) = Int(100 * Rnd - 50)
If arr(i) > max Then max = arr(i): maxI = i
Next i
ReDim Preserve arr(1 To n + 1)
For i = n + 1 To maxI + 1 Step -1
arr(i) = arr(i - 1)
Next i
arr(maxI) = 100
min = arr(1)
minI = 1
For i = 2 To n
If arr(i) < min Then min = arr(i): minI = i
Next i
ReDim Preserve arr(1 To n + 2)
For i = n + 2 To minI + 1 Step -1
arr(i) = arr(i - 1)
Next i
arr(minI) = -100
answer = ""
For i = 1 To n + 2
answer = answer & arr(i) & Space(2)
Next i
MsgBox answer
End Sub