X = array (1, 4, 6, 7, 7, 10, 3, 7, 9, 8).

For i = 1 to UBound(x)+1

Y = y+application. Worksheet Function.Large(x, i)

If y>, then 30.

MsgBox "used"&; I&",the final result is"&; y

outlet connection

If ... it will be over.

then

MsgBox "is really a tragedy. When all the numbers are used up, it will not exceed 30 ... "

End joint