Visual Basic - 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.

La idea es buscar cuantas veces aparece el caracter 13 (Enter) y sumar cuantas veces ha aparecido, por ejemplo hasta el momento seria una vez, aunque halla 2 lineas, por lo que al final le sumamos 18 la ultima linea no tiene el caracter 13. Aqui implemente un codigo

Private Sub Command1_Click()
Dim POS As Integer, NumLineas As Integer
POS = InStr(Text1.Text, Chr(13))
If POS <> 0 Then
NumLineas = 1
Else
MsgBox ("Solo existe una linea")
Exit Sub
End If
While POS <> 0
POS = InStr(POS + 1, Text1.Text, Chr(13))
If POS <> 0 Then NumLineas = NumLineas + 1
Wend
MsgBox ("Existen " & NumLineas + 1 & " lineas")
End Sub

Bueno suerte.