Gymnast scoring question

Module Module1

    Sub Main()

        Dim scores() As Integer = {6, 4, 7, 8, 9, 5}

        Dim highest As Integer = scores(0)
        Dim lowest As Integer = scores(0)

        For x = scores.GetLowerBound(0) To scores.GetUpperBound(0) Step 1

            If scores(x) > highest Then
                highest = scores(x)
            ElseIf scores(x) < lowest Then
                lowest = scores(x)
            End If

        Next x

        Console.WriteLine((scores(0) + scores(1) + scores(2) + scores(3) + scores(4) + scores(5)) – (highest + lowest))
        Console.ReadKey()

    End Sub

End Module