Private Sub CommandButton1_Click()
Dim Zahlenarray(0 To 3), maxWert, hoechsterIndex As Integer
hoechsterIndex = UBound(Zahlenarray)
Zahlenarray(0) = 2
Zahlenarray(1) = 22
Zahlenarray(2) = 3
Zahlenarray(3) = 2000
For i = 0 To hoechsterIndex
For j = 0 To hoechsterIndex
If Zahlenarray(i) < Zahlenarray(j) Then
tmp = Zahlenarray(i)
Zahlenarray(i) = Zahlenarray(j)
Zahlenarray(j) = tmp
End If
Next
Next
maxWert = Zahlenarray(hoechsterIndex)
MsgBox ("Die hoechste Punktzahl beträgt: " & maxWert)
End Sub