Dim Mayor As IntegerDim I As IntegerMayor = 0For I = 0 To List1.ListCount - 1 If List1.List(I) > Mayor Then Mayor = List1.List(I) End IfNext