Visual Basic para Aplicaciones - Recuperar filas textbox multilinea

Hola a todos!

Tengo un "maldito" textbox multinea y tengo que recuperar un número específico de lineas de él.

Como lo podría hacer?

Muchas gracias por adelantado,

Maria.

Una pequeña idea...

On Error Resume Next

Dim sTexto$, iPos%
Dim vsLinea() As String, n%

sTexto = TextBox1.Text

ReDim vsLinea(TextBox1.LineCount) As String

iPos = InStr(sTexto, vbNewLine)
n = 0

Do While iPos > 0
vsLinea(n) = Mid(sTexto, 1, iPos - 1)
n = n + 1
sTexto = Mid(sTexto, iPos + 2)
iPos = InStr(sTexto, vbNewLine)
Loop

If sTexto <> "" Then
vsLinea(n) = sTexto
n = n + 1
End If

For iPos = 0 To n - 1
MsgBox "Línea #" & iPos + 1 & ": '" & vsLinea(iPos) & "'"
Next

Erase vsLinea

Saludos y buena suerte, desde Buenos Aires, JuanC