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

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