Ordered List in a Textbox

Dim Count as Integer = 1

For i = 50 To 1 Step -1
            TextBox1.Text = (count.ToString & ")  " & (arrNumber(count))) & vbCrLf & TextBox1.Text
            ListBox1.Items.Add(count.ToString & ")  " & (arrNumber(i)))

           count +=1
Next