web巡回ソフトみたいなのを作りたいのですが

プチシルマ  2004-06-02 16:18:25  No: 113655  IP: [192.*.*.*]

web巡回ソフト程大層な物でなくて、リンク先が存在しているかどうかを
調べれるものを作りたいのですが、下記のようなプログラム（の主要部分）だと
リンク先が消えている場合に.sendの場所で止まってしまうのです。
他に方法がないか教えて貰えませんか？

Dim ojMSxml As Object 
Set ojMSxml = CreateObject("Microsoft.XMLHTTP") 
      ojMSxml.Open "GET", "http:・・・・", False 
      ojMSxml.Send 
      aaa = ojMSxml.responseText 

出来ればVBA（エクセル）で動くものをお願いします。

編集 削除
いな  2004-06-02 16:37:14  No: 113656  IP: [192.*.*.*]

Dim ojMSxml As Object 
ON ERROR GOTO HTTP_ERR
Set ojMSxml = CreateObject("Microsoft.XMLHTTP") 
      ojMSxml.Open "GET", "http:・・・・", False 
      ojMSxml.Send 
      aaa = ojMSxml.responseText 

HTTP_ERR:
   MsgBox "リンク先ないよ"
   Err.Clear

とか？

編集 削除
プチシルマ  2004-06-02 16:48:45  No: 113657  IP: [192.*.*.*]

回答ありがとうございます。
どうやらエラーを吐いて止まるわけでは無いらしく
やはり同じところで止まってしまいます。
普通は404エラーのhtmlが取得されると思いますが何故かダメっぽいです。

編集 削除