Ok its simple
Dim myarray As String() = RichTextBox1.Lines
If you want value then simply use myarray(0), you can iterate this way
for each str as string in myarray
messagebox.show(str)
next
Now if you want to remove empty lines from an array you could iterate the above way and check for empty lines or use this Linq method
Dim list1 As List(Of String) = RichTextBox1.Lines.ToList
Dim matchset As IEnumerable(Of String) = From match In list1 _
Where match.Trim <> "" Select match
Dim MyarraywithoutBlank As String() = matchset.ToArray
Make sure you have .net 3.5 enabled project for linq methods.
Arjun Paudel