Ele não le so a ultima linha, mas ele le todas... vc tem que processar cada uma dentro de proprio loop... onde eu coloquei "'coloca aqui o processamento com esta linha" vc deve por o processamento...
Se vc quer ler apenas uma linha, poe um contador... fica mais ou menos assim:
'Text1.Text é o seu textbox com MultiLine = True
'nLinha é o numero da linha q vc quer pegar
'a Function vai retornar o conteudo da linha, vc executa para cada linha que quiser, passando o numero da linha como parametro, sendo que a primeira linha tem Indice 0
Private Function ObtemLinha(nLinha As Integer) As String
Dim temp As String, contLinha As Integer
For i = 1 To Len(Text1.Text)
If Not Mid(Text1.Text, i, 1) = Chr(13) Then ' 13 é primeiro char de CRLF
temp = temp & Mid(Text1.Text, i, 1)
Else
If i = Len(Text1.Text) Then
temp = temp & Mid(Text1.Text, i, 1)
ElseIf Not Mid(Text1.Text, i +1, 1) = Chr(10) Then '10 é o segundo char de CRLF
temp = temp & Mid(Text1.Text, i, 1)
Else
If nLinha = contLinha Then
ObtemLinha = temp
Exit For
End If
contLinha = contLinha + 1
temp = ""
i = i + 1
End If
End If
Next
Assim deve funcionar...
Tenta ai, mano
