URLを構成要素に分解する。
URLを構成要素(protocol/hostname/port/pathname/hash/search)に
分解するにはどうするか？ 正規表現を使う？
いえいえ、<a>オブジェクトにそういう機能がありますよ。
Set Document=CreateObject("htmlfile")
Document.write "<html><body><a id=a1 /></body></html>"
Set Location=Document.body.all.a1
Location.href="http://www.hoge.com:60/folder/file#hash?search"
MsgBox Location.protocol
MsgBox Location.hostname
MsgBox Location.port
MsgBox Location.pathname
MsgBox Location.hash
MsgBox Location.search