Как ранжировать текстовое поле?

---

У меня есть 5 текстовых полей в моей форме, которые принимают рандомизированное значение в соответствии с пользовательскими вставленными значениями в предыдущем процессе. Я хочу ранжировать эти текстовые поля в соответствии с их значениями, высокое значение текстового поля ранг "1" более низкое значение текстового поля "2" и так далее

Что я уже пробовал:

Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
        Try

            Dim i As String() = New String() {TextBox20.Text, TextBox19.Text, TextBox18.Text, TextBox17.Text, TextBox16.Text}
            Dim lastScore As Double
            Dim lastScorePosition As Double
            Dim position As Double = 1

            For Each i1 In i
                If Val(lastScore) <> Val(i1) Then
                    TextBox25.Text = (position & ",")
                    lastScorePosition = position
                    lastScore = Val(i1)
                Else
                    TextBox25.Text = (lastScorePosition & ",")
                End If
                position += 1
            Next


        Catch ex As Exception
            MessageBox.Show(ex.Message)
        Finally
            Beep()
        End Try

---