Public Declare Function SendMessageLong Lib _
        "user32" Alias "SendMessageA" _
        (ByVal hwnd As Long, _
        ByVal wMsg As Long, _
        ByVal wParam As Long, _
        ByVal lParam As Long) As Long

Public Const EM_LINEFROMCHAR = &HC9

Public Function GetLine(txt As TextBox)
    GetLine = SendMessageLong(txt.hwnd, EM_LINEFROMCHAR, -1&, 0&) + 1
End Sub