Dim Looping As ByteDim Mayor As IntegerFor Looping = 0 To 9 If numerospares(Looping) > Mayor Then Mayor = numerospares(Looping) End IfNext Looping