Visual Basic - RICHTEXTBOX

Hola amigos,
mi consulta es la sgte. como puedo verificar el contenido de un RichTextBox Linea por Linea.

Gracias

Dim Archivo$, Linea$, TextoLinea$, Longitud%

Open Archivo For Input As #1

Do While Not EOF(1)
Line Input #1, Linea
Longitud = Len(Linea)
TextoLinea = Space(Longitud)
Loop
Close

Donde TextoLinea es el contenido de cada línea del RichTextBox

No sé si es eso lo que quieres. Espero que te sirva.

Saludos.

Pedro