.NET Runescape EOC Combat Formula

'Written by Sixem
Public Function CombatLevel_EOC(ByVal Attack As Integer, ByVal Strength As Integer, ByVal Ranged As Integer, ByVal Magic As Integer, ByVal Defence As Integer, ByVal Prayer As Integer, ByVal Summoning As Integer, ByVal Constitution As Integer)
        Dim X As Integer = 1
        Dim Levels() As Integer = {Attack, Strength, Magic, Summoning, Ranged}
        For Each Level As Integer In Levels
            If X < Level Then
                X = Level
            End If
        Next
        Return CInt(X + Defence + 2)
    End Function