This code has use the Excel built-in function, Average, Max, Min and Standard Deviation.

Option Base 1

Sub BuiltInFunctionDemo ()

Dim MyArray(100) As Integer

For x = 1 to 100

MyArray(x) = Rnd

Next x

average = Application.Average(MyArray)

maxa = Application.Max(MyArray)

mina = Application.Min(MyArray)

std = Application.Stdev(MyArray)

MsgBox average &  vbCrLf  & maxa &  vbCrLf  & mina &  vbCrLf & std

End Sub