Определить наибольший элемент массива, состоящего из 10 членов

Dim Massiv(9) As Integer Dim Max As Integer        Dim x As Integer        Max = Massiv(0)        For x = 1 To 9             If Massiv(x) > Max Then Max = Massiv(x)        Next        '  c2fbefeeebede8eb3a20caf3eff0e8ffedeee220c42ec52e2028632920442d6d6f6e3535 MsgBox(Max)