Ordered List in a Textbox

For i = 1 To 50
            TextBox1.Text = (i.ToString & ")  " & (arrNumber(i))) & vbCrLf & TextBox1.Text
            ListBox1.Items.insert(i-1,(i.ToString & ")  " & (arrNumber(i))))
Next