You could also use
Code:
    Dim Lns() As String
    Lns() = Split(Text1.Text, vbNewLine)
    MsgBox "There are " & UBound(Lns()) + 1 & " lines in textbox 1"
But for a lot of lines it might be a bit slow.