Dim allLines() As String = RichTextBox1.Lines
For lineCounter = 0 To allLines.GetUpperBound(0)
    MessageBox.Show(allLines(lineCounter))
Next