Private Sub optBook()
Dim Index As Integer
Dim nCnt As Long, ctl As Control, Id As Integer
'====================================================
Do
hwnd = FindWindow("#32770", "User program management")
hwndEd = FindWindowEx(hwnd,  0 , "ListBox", vbNullString)
Loop While hwndEd =  0 
Dim num As Long
Dim i As Integer
Dim txt As String
Dim entry As String
Dim length As Long

    ' See how many entries the list has.
    num = SendMessage(hwndEd, LB_GETCOUNT,  0 ,  0 )

    ' Read each entry.
    For i =  0  To num -  1 
        ' See how long the entry is.
        length = SendMessage(hwndEd, LB_GETTEXTLEN, i, _
             0 )

        ' Make entry big enough.
        entry = Space$(length +  1 )

        ' Get the entry.
        length = SendMessage(hwndEd, LB_GETTEXT, i, _
            ByVal entry)
        txt = Left$(entry, length) & vbCrLf
    If txt Like "*51100*" Then SendMessage hwndEd, LB_SETSEL,  1 , i: Exit For

'Debug.Print (txt)
    Next i

End Sub