Dim i() As Integer = {33, 17, 1, 99, 104, 23, 48}
        Array.Sort(i)
        Dim max As Integer = i(UBound(i))

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist