Private Sub GetCalculate()
    Dim iMassiv#(1 To 100), iCount%
    Dim iAverage#, iMin#, iMax#, iSum#, iProduct
 
    For iCount = 1 To 100
        iMassiv(iCount) = Rnd * 1000
    Next
 
    With Application
         iAverage = .Average(iMassiv)
         iMin = .Min(iMassiv)
         iMax = .Max(iMassiv)
         iSum = .Sum(iMassiv)
         iProduct = .Product(iMassiv)
    End With
End Sub