Как найти минимальное и максимальное значения массива и вывести их разность на экран

Sub pr()
    Dim a&(1 To 20), i&
    For i = 1 To 20
        a(i) = Int(Rnd * 100)
    Next
    MsgBox ("Разность Max-Min составит: " & Application.Max(a) - Application.Min(a))
End Sub

Private Sub CommandButton1_Click()
Dim S() As Integer, i As Integer, max As Integer, min As Integer, n As Integer
Cells.Clear
min = 100
max = -100
n = InputBox("Введите размер массива", "", 20)
ReDim S(n)
For i = 0 To n
S(i) = Rnd() * 100 - 50
Cells(i + 2, 2) = S(i)
If min > S(i) Then
min = S(i)
End If
If max < S(i) Then
max = S(i)
End If
Next
t = max - min
Cells(2, 4) = "Разность = " & t
Cells(4, 4) = "Минимум = " & min
Cells(6, 4) = "Максимум = " & max
End Sub

Sub pr()
    Dim a&(1 To 20), i&
    For i = 1 To 20
        a(i) = Int(Rnd * 100)
    Next
    MsgBox ("Разность Max-Min составит: " & Application.Max(a) - Application.Min(a))
End Sub

Sub sd()
Dim i, imin, imax As Integer
Dim a(), min, max, b As Double
min = 99
max = -99
ReDim a(1 To 10)
For i = 1 To 10
a(i) = InputBox("Ââåäèòå çíà÷åíèå äëÿ " & i)
Cells(1, i) = a(i)
Next
For i = 1 To 10
 If a(i) < min Then
 min = a(i): i = imin
 End If
 If a(i) > max Then
 max = a(i): i = imax
 End If
Next
b = min
a(imin) = a(imax)
a(imax) = b
End Sub

Dim i, imin, imax As Integer
Dim a(10) As Double, min As Double, max As Double, b As Double, t As Double
min = 99
max = -99
 
For i = 1 To 10
t = Rnd() * 100 - 50
a(i) = InputBox("Введите значение для " & i, , t)
Cells(1 + i, 2) = a(i)
 
 If a(i) < min Then
 min = a(i): imin = i
 End If
 
 If a(i) > max Then
 max = a(i):  imax = i
 End If
Next
b = min
a(imin) = a(imax)
a(imax) = b
 
 For i = 1 To 10
Cells(1 + i, 4) = a(i)
Next

Sub óà()
Dim n, i, p As Integer
Dim x() As Double
p = 1
n = InputBox("Ââåäèòå êîëëè÷åñòâî ïåðåìåííûõ Õ:")
ReDim x(1 To n)
For i = 0 To n
x(i) = InputBox("Ââåäèòå çíà÷åíèå äëÿ Õ:" & i)
Cells(i + 1, 1) = x(i)
Next
For i = n To 1 Step -1
p = p * (x(n) + x(n - 1))
Next i
y = p * x(n)
Range("B2") = y
MsgBox ("Ëîâè îòâåò, ÷åë:") & y
 
End Sub