How to rank text-box?

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