Extraído de la web del Guille. No dejes de visitarla.

'Las constantes:

Const EM_GETLINECOUNT = &HBA 'Número de líneas
Const EM_LINEINDEX = &HBB 'Posición del primer caracter de la línea actual
Const EM_LINELENGTH = &HC1 'Longitud de una línea

'Número de líneas del TextBox:
NumLineas = SendMessage(unTextBox.hWnd, EM_GETLINECOUNT, 0, 0&)

'Posición del primer carácter de la línea X:
L1 = SendMessage(unTextBox.hWnd, EM_LINEINDEX, X, 0&) + 1

'Longitud, en caracteres, de la línea que empieza por el caracter L1:
L2 = SendMessage(unTextBox.hWnd, EM_LINELENGTH, L1, 0&)

'Forma de usarlo todo junto:
NumLineas = SendMessage(unTextBox.hWnd, EM_GETLINECOUNT, 0, 0&)
For X = 0 To NumLineas - 1
    L1 = SendMessage(unTextBox.hWnd, EM_LINEINDEX, X, 0&) + 1
    L2 = SendMessage(unTextBox.hWnd, EM_LINELENGTH, L1, 0&)
    'Contenido de la línea X:
    Linea$ = Mid$(unTextBox.Text, L1, L2)
    '...
Next X