Gelen veriye göre okutacaksın. Önce sayfadaki veriyi aldıracaksın. İçinde Error, not found, bulunamadı gibi bir şey geçiyorsa kırık demektir link.

If InStr(gelen, "Error") > 0 Then
MsgBox("Link Kırık")
Exit Sub
End If

gibi