ولی اگر آدرسی رو که در سایت وجود نداره بدیم:
Dim r As Response

r = Check_Url("https://google.com/aaaaaa")

Debug.Print r.OK, r.StatusCode, r.StatusText


نتیجه زیر رو داریم:
True          404           Not Found