Function test(Optional ha AsInteger=100)' Application.volatileIf ha =0ThenMsgBox "ha = 0"ElseMsgBox "ha = "& haEndIfEndFunctionSub hello()Call testCall test(11111)EndSub'''''''''''''''''''''''''''''''''''''''''''''''''''''''''Sub hello()Call t1(10,12,13)Call t1(100,45)EndSubFunction t1(ParamArray n())Dim sumFor Each a In nsum = sum + aNext aDebug.Print sum
EndFunction