Angenommen Deine Textbox ist Member einer UserForm, dann kommst wie folgt an die letzte Zeile:
Me.TextBox1.SetFocus MsgBox Split(Me.TextBox1.Value, Chr(10))(Me.TextBox1.LineCount - 1)