URLが表示済か未表示かを判別する。
URLが表示済か未表示かによって、Webページ上でリンクの色が異なります。
つまり、URLが表示済か未表示かをこれで判別できるはずです。
Function IsVisitedURL(URL)
Set Document=CreateObject("htmlfile")
Document.write "<html><body><a id=a1 /></body></html>"
Document.body.all.a1.href=URL
IsVisitedURL=Document.body.all.a1.currentStyle.Color=Document.vlinkColor
End Function
URL="about:blank"
MsgBox IsVisitedURL(URL),,URL