Интернет. Получить список из всплывающего окна - VB

Формулировка задачи:

Добрый всем день. Кое-что получилось сделать с помощью

                    Листинг программы
                
Set WB = CreateObject("InternetExplorer.Application")

Преребираю все анкеты на странице. Но только для указанного региона. Не могу получить доступ и управление к вслывающему окну выбора региона и города. Вот при выборе региона и города всплывает такое окно. Как получить список в список и потом при выборе региона опять же получить город и код города в переменную. Например для Хабаровска должно получиться 3159_5473_5504_0

Решение задачи: «Интернет. Получить список из всплывающего окна»

textual
                            Листинг программы 
                        
 
                        
                          
                    
 ss = GetHTTPResponse("http://love.accoona.ru/mamba.phtml?m=search_place&_json_=Y&value=0_0_0_0&version=2")
',{"value":"3159_0_0_0","text":"Россия","metro":0},{
ss2 = GetHTTPResponse("http://love.accoona.ru/mamba.phtml?m=search_place&_json_=Y&all=1&value=3159_0_0_0&version=2")
',{"value":"3159_4503_0_0","text":"Новгородская область","metro":0},{
ss2 = GetHTTPResponse("http://love.accoona.ru/mamba.phtml?m=search_place&_json_=Y&all=1&value=3159_4503_0_0&version=2")
'{"value":"3159_4503_4517_0","text":"Великий Новгород","metro":0},
 
[url]http://love.accoona.ru/ru/search.phtml?t=&sz=b&ni=1&wp=1&ia=N&lf=N&af=22&at=35&s_c=3159_4503_4517_0[/url]