Общие вопросы

Пробую заменить стандартное окошко "object.ExecCommand DECMD_HYPERLINK, OLECMDEXECOPT_PROMPTUSER" на свое, самодельное:
function fnSetHyperlink()
set ParO = document.forms.item(0)
select case ParO.DHTMLS.QueryStatus(5016)
case 3
vArguments="" '???
SHLwin = window.showModalDialog("HyperlinkSelector.aspx"[...])
if SHLwin<>"" then
if SHLwin="RemoveLink" then SHLwin=""
ParO.DHTMLS.ExecCommand 5016, 2, SHLwin
end if
case else
alert("Невозможно произвести операцию!")
end select
end function

DHTMLS - это как раз OBJECT
все работает, однако хотел передавать в переменной vArguments HREF ссылки выбранного элемента (если он его имеет), однако совсем не понимаю как это возможно сделать... Стандартное окошко ввода ссылки поддерживает это, если на выделенном элементе уже есть ссылка, то она показывается в нем,а QueryStatus( DECMD_HYPERLINK ) возвращает только 1 или 3 и никакого url.
Кто-нибудь сталкивался с этим?