VB Text Boxes to Array

Public Class Form1

    Dim textBoxCount As Integer = 5
    Dim array(textBoxCount) As String

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim tb As Control
        For index = 1 To textBoxCount
            tb = Me.Controls.Find("textBox" + index.ToString, True)(0)
            array(index) = tb.Text
        Next

        For index = 1 To textBoxCount
            RichTextBox1.AppendText(array(index))
            RichTextBox1.AppendText(vbNewLine)
        Next

    End Sub
End Class