Reading listbox items from 3rd party application - excel

Question

I am struggling to get listbox items from a 3rd party application. cant find away to get the list items from the listbox, have search for a week and have not find any solution.
Is there anyone that have a clue what to do.
Update!!
I struggle to get the verbose information form the listbox, shown in picture 3, red marking. When i use LB_GETTEXT i only get the first row. Is there a way to get all lines from the multi-line listbox item?
Some one up for this challenge :)
Private Declare PtrSafe Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal
lpClassName As String, ByVal lpWindowName As String) As LongPtr
Private Declare PtrSafe Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal
hWnd1 As LongPtr, ByVal hWnd2 As LongPtr, ByVal lpsz1 As String, ByVal lpsz2 As String)
As LongPtr
Private Declare PtrSafe Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal
hwnd As LongPtr, ByVal wMsg As Long, ByVal wParam As LongPtr, lParam As Any) As LongPtr
Sub windows_API_Test()
Const LB_GETCOUNT = &H18B
Const LB_GETTOPINDEX = &H18E
Const LB_GETTEXTLEN = &H18A
Const LB_GETTEXT = &H189
Do
DoEvents
Main_window = FindWindow(vbNullString, "Select passes to be exported")
Listbox_window = FindWindowEx(Main_window, 0&, "Listbox", vbNullString)
Loop Until Listbox_window > 0
numberofindex = SendMessage(Listbox_window, LB_GETCOUNT, 0, ByVal 0&)
TopIndex = SendMessage(Listbox_window, LB_GETTOPINDEX, 0, 0)
For i = TopIndex To numberofindex - 1
textcount = SendMessage(Listbox_window, LB_GETTEXTLEN, i, 0)
'space for null terminating string '\0' will be automatically added by VB
buffer$ = Space$(textcount)
' pass string byval not byref
' also make sure that lParam of SendMessage is declared as ANY
Call SendMessage(Listbox_window, LB_GETTEXT, i, ByVal buffer$)
Debug.Print buffer$
Next i
End Sub
Info from Spy++
Listbox from 3rd party application
How to get information circled in red?