Option Explicit

Private Sub Form_Load()
Dim Wert(0 To 4) As Integer
Dim X As Integer
Dim Max As Long
Dim MaxPos As Integer

Wert(0) = 890
Wert(1) = 19
Wert(2) = 4
Wert(3) = 45
Wert(4) = 6041

    For X = 0 To UBound(Wert)
        If Wert(X) > Max Then
            Max = Wert(X)
            MaxPos = X
        End If
    Next X
    
MsgBox "Der größte Wert im Datenfeld: " & Max & ", Position: " & MaxPos

End Sub