RosettaCodeData/Task/Catamorphism/VBA/catamorphism.vba

Public Sub reduce()
    s = [{1,2,3,4,5}]
    Debug.Print WorksheetFunction.Sum(s)
    Debug.Print WorksheetFunction.Product(s)
End Sub