aryText(1) = Tetris.Tetris.LblScoreValue.Text

aryText(1) = "300"

If Tetris.Tetris.LblScoreValue.Text > aryText(1) Then
    aryText(1) = Tetris.Tetris.LblScoreValue.Text
    objWriter.WriteLine(TextBox_Player.Text & " " & aryText(1))
ElseIf Tetris.Tetris.LblScoreValue.Text > aryText(2) Then
    aryText(2) = Tetris.Tetris.LblScoreValue.Text
    objWriter.WriteLine(TextBox_Player.Text & " " & aryText(2))

If "300" > "0" Then
    aryText(1) = "300"
    objWriter.WriteLine("Rose" & " " & "300")
ElseIf "300" > "0" Then
    aryText(2) = "300"
    objWriter.WriteLine("Rose" & " " & "300")

1. Read the list of names and scores from the file.
2. Add the current name and score to the appropriate place in the list.
3. Trim the list.
4. Write the list to a file.

1. For each element in the list:
    1.1. If score > currentScore Then
        1.1.1. Insert the score before this position
        1.1.2. Stop searching
2. If no replacement occurred:
    2.1. Add the score to the end of the list

Public Class HighScore
    Implements IComparable(Of HighScore)

    ' public variables because I can't be bothered typing out the properties
    Public PlayerName as String
    Public PlayerScore as Integer

    Public Sub New(byval name as string, byval score as integer)
        Me.Playername = name
        me.PlayerScore = score
    End Sub

    Public Function CompareTo(ByVal other As highscore) As Integer Implements System.IComparable(Of highscore).CompareTo
        return Me.PlayerScore.CompareTo(other.PlayerScore)
    End Function

    Public Overrides Function ToString() As String
        Return me.playerName & ": " & me.playerScore.ToString
    end sub
End Class

 Private Sub bt_Ok_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_OK.Click      
        Dim FILE_NAME As String = "scor.txt"
        Dim Scor(5) As String
        Dim Nume(5) As String
        Dim i As Integer

        For i = 1 To 5

            Dim objreader As New System.IO.StreamReader(FILE_NAME)

            Do While objreader.Peek() >= 0
                Console.WriteLine(objreader.ReadLine())
            Loop
            objreader.Close()

            Dim objWriter As New System.IO.StreamWriter(FILE_NAME)

            If Tetris.Tetris.LblScoreValue.Text > Scor(1) Then
                TextBox_Player.Text = Nume(1)
                Tetris.Tetris.LblScoreValue.Text = Scor(1)
                objWriter.WriteLine(Nume(1) & " " & Scor(1))
                objWriter.Close()

            ElseIf Tetris.Tetris.LblScoreValue.Text > Scor(2) Then
                TextBox_Player.Text = Nume(2)
                Tetris.Tetris.LblScoreValue.Text = Scor(2)
                objWriter.WriteLine(Nume(2) & " " & Scor(2))
                objWriter.Close()

            ElseIf Tetris.Tetris.LblScoreValue.Text > Scor(3) Then
                TextBox_Player.Text = Nume(3)
                Tetris.Tetris.LblScoreValue.Text = Scor(3)
                objWriter.WriteLine(Nume(3) & " " & Scor(3))
                objWriter.Close()

            ElseIf Tetris.Tetris.LblScoreValue.Text > Scor(4) Then
                TextBox_Player.Text = Nume(4)
                Tetris.Tetris.LblScoreValue.Text = Scor(4)
                objWriter.WriteLine(Nume(4) & " " & Scor(4))
                objWriter.Close()

            ElseIf Tetris.Tetris.LblScoreValue.Text > Scor(5) Then
                TextBox_Player.Text = Nume(5)
                Tetris.Tetris.LblScoreValue.Text = Scor(5)
                objWriter.WriteLine(Nume(5) & " " & Scor(5))
                objWriter.Close()

            End If
        Next
        Me.Close()
    End Sub
End Class

Private Sub ReadHighScores(byval filePath as string) as HighScore()
    ' Read the file and return an array of highscores
End Sub

Private Sub WriteHighScores(byval filePath as string, byval highscores() as HighScore)
    ' Write the array to the file
End Sub

Private Function IsHighScore(byval newScore as integer, byval highScores() as HighScore) as Boolean
    ' Check the array to see if newScore is higher than any of the existing highscores
    ' and return true if it is
End Function

Private Sub AddNewHighScore(byval newScore as HighScore, byval highScores() as HighScore)
    ' Remove the lowest score from the array if array is at MaxHighScores and add the new score
End Sub

' The array containing the highscores.
' In the form load then this is set to the return of ReadHighScores
Dim MyHighScores() as HighScore

Private Sub bt_Ok_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_OK.Click 

    dim userName as string
    dim h as highscore

    If IsHighScore(cint(Tetris.Tetris.LblScoreValue.Text), MyHighScores) Then
    
        ' Get a name for them.
        userName = InputBox("Enter name:", "You got a high score")

        h = new HighScore(username, cint(Tetris.Tetris.LblScoreValue.Text))

        AddNewHighScore(h, MyHighScores)

        WriteHighScores([A file to save them to], MyHighScores)
    end if
End Sub

Private Sub ReadHighScores(byval filePath as string) as HighScore()
    ' Read the file and return an array of highscores
End Sub

Private Sub WriteHighScores(byval filePath as string, byval highscores() as HighScore)
    ' Write the array to the file
End Sub

Private Function IsHighScore(byval newScore as integer, byval highScores() as HighScore) as Boolean
    ' Check the array to see if newScore is higher than any of the existing highscores
    ' and return true if it is
End Function

Private Sub AddNewHighScore(byval newScore as HighScore, byval highScores() as HighScore)
    ' Remove the lowest score from the array if array is at MaxHighScores and add the new score
End Sub

Private Function IsHighScore(byval newScore as integer, byval highScores() as HighScore) As Boolean
   
    dim h as HighScore
    dim isHigh as boolean = False

    ' How many high scores are recorded?
    if highScores.Length < MAXHIGHSCORES then ' MAXHIGHSCORES is 5 for you, but it's worth making it 
                                                    ' a constant so you can easily change it and refer to it elsewhere

        ' There is space for new high scores so it must be a high score
        isHigh = True

    Else

        ' There are high scores. Look at each high score, order doesn't matter
        For each h in highScores

            ' Is the new score higher than this existing high score?
            if newScore > h.PlayerScore then

                ' It is! This score is a new high score
                isHigh = True

                ' No need to check any more scores
                exit for

            end if
        Next
    end if

    return isHigh
End Function

Public Class Form1

    Private Const MAXHIGHSCORES = 5
    Private Const SCOREFILE = "C:\Temp\Scores.txt"

    Dim MyHighScores() As HighScore
    
    Private Function ReadHighScores(ByVal filePath As String) As HighScore()
        ' Read the file and return an array of highscores
        Dim sr As IO.StreamReader
        Dim line As String
        Dim params() As String

        Dim highScores() As HighScore
        Dim h As HighScore

        ' Initialise the array as empty. If there's no file there will be no scores
        ReDim highScores(-1)

        ' Check that the file exists
        If IO.File.Exists(filePath) Then
            Try

                sr = New IO.StreamReader(filePath)

                ' read each line of the file creating highscores as we go along
                While Not sr.EndOfStream
                    line = sr.ReadLine

                    ' Check that there's something in the line. Writeline of WriteHighScores
                    ' will leave a blank line at the end
                    If line.Length > 0 Then
                        ' Split the line into its name and score parameters
                        params = line.Split(":")

                        ' Use those to create a highscore
                        h = New HighScore(params(0), CInt(params(1)))

                        ' Increase the size of the array by one and add the high score
                        ReDim Preserve highScores(highScores.GetUpperBound(0) + 1)
                        highScores(highScores.GetUpperBound(0)) = h
                    End If
                End While

            Catch ex As Exception
                Throw
            Finally
                sr.Close()
                sr.Dispose()
            End Try

        End If

        Return highScores
    End Function

    Private Sub WriteHighScores(ByVal filePath As String, ByVal highscores() As HighScore)
        ' Write the array to the file
        Dim sw As IO.StreamWriter
        Dim h As HighScore

        ' Are there any high scores recorded
        If highscores.Length > 0 Then

            Try
                ' Overwrite an existing high score file
                sw = New IO.StreamWriter(filePath, False)

                ' Work through each high score and add it to the file
                For Each h In highscores
                    sw.WriteLine(h.ToString)
                Next
            Catch ex As Exception
                Throw
            Finally
                sw.Close()
                sw.Dispose()
            End Try
            
        End If
    End Sub

    Private Function IsHighScore(ByVal newScore As Integer, ByVal highScores() As HighScore) As Boolean

        Dim h As HighScore
        Dim isHigh As Boolean = False

        ' How many high scores are recorded?
        If highScores.Length < MAXHIGHSCORES Then ' MAXHIGHSCORES is 5 for you, but it's worth making it 
            ' a constant so you can easily change it and refer to it elsewhere

            ' There is space for new high scores so it must be a high score
            isHigh = True

        Else

            ' There are high scores. Look at each high score, order doesn't matter
            For Each h In highScores

                ' Is the new score higher than this existing high score?
                If newScore > h.PlayerScore Then

                    ' It is! This score is a new high score
                    isHigh = True

                    ' No need to check any more scores
                    Exit For

                End If
            Next
        End If

        Return isHigh
    End Function

    Private Function AddNewHighScore(ByVal newScore As HighScore, ByVal highScores() As HighScore) As HighScore()
        ' Remove the lowest score from the array if array is at MaxHighScores and add the new score

        ' Check to see how many scores are recorded
        If highScores.Length < MAXHIGHSCORES Then
            ' Less than the maximum means increase the size of the array
            ReDim Preserve highScores(highScores.GetUpperBound(0) + 1)
        Else
            ' At the maximum means we want to replace the lowest score so get the array in
            ' order
            Array.Sort(highScores)
            Array.Reverse(highScores)
        End If

        ' Record the score at the last element. Either empty or the lowest scores
        highScores(highScores.GetUpperBound(0)) = newScore

        Return highScores
    End Function

    Private Sub DisplayScores(ByVal highScores() As HighScore)
        Dim h As HighScore
        Dim scores As String = ""

        Array.Sort(highScores)
        Array.Reverse(highScores)

        For Each h In highScores
            scores &= h.ToString & vbCrLf
        Next

        MessageBox.Show(scores)
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ' When the form loads, read the high scores
        MyHighScores = ReadHighScores(SCOREFILE)
    End Sub

    Private Sub bt_Ok_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim userName As String
        Dim h As HighScore

        If IsHighScore(NumericUpDown1.Value, MyHighScores) Then

            ' Get a name for them.
            userName = InputBox("Enter name:", "You got a high score")

            h = New HighScore(userName, NumericUpDown1.Value)

            MyHighScores = AddNewHighScore(h, MyHighScores)

            WriteHighScores(SCOREFILE, MyHighScores)
        End If
    End Sub
   
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        DisplayScores(MyHighScores)
    End Sub

    
End Class

Public Class Form1

    Private Const MAXHIGHSCORES = 5
    Private Const SCOREFILE = "C:\Temp\Scores.txt"

    Dim MyHighScores() As HighScore

   Dim MyHighScores() As HighScore

Public Class Form1

End Class

Public Class HighScore

End Class