رفع run time eror

[albalooband]

سلام
این کدیه که دوستان برای آپدیت برنامه به من دادن.(دستشون درد نکنه)



Dim Update As String
Dim Version As Integer
Dim Download
website = Inet1.OpenURL("http://xxxxxx/version1.txt")
Version = "0"
If Version = website Then
MsgBox ("äÓÎå ÌÏíÏí Ñæí ÓÑæÑ äíÓÊ")
Else
Update = Inet1.OpenURL("http://xxxxxxx/version1.txt")
Download = MsgBox("äÓÎå" & Update & "Ñæí ÓÑæÑ ÇÓÊ.ÏÇäáæÏ ãí ˜äíÏ¿", vbYesNo)
If Download = vbYes Then
WebBrowser1.Navigate "http://xxxxxx/cra.zip"
End If
End If



حالا یک مشکل دارم:
وقتی سیستم به اینترنت وصل نیست و کاربر دکمه آپدیت رو میزنه run time eror 13 میده
چه شرطی پشت شرطم بزارم که حل بشه؟ یا راه دیگه ای هست؟

[Babak.Hassanpour]

سلام دوست عزیز
شما رو به تاپیکی که خودت ایجاد کردی و بنده پاسخ دادم ارجاع میدم ولی نمی دونم اگه کدی که دادم رو تست کردی و جواب نداد که بعید میدونم جواب نداده باشه ، چرا تو همون تاپیک پیگیری نکردید؟:متفکر:
http://barnamenevis.org/forum/showthread.php?t=153280&highlight=%D8%A7%D8%AA%D8%B5%D8%A7%D9%84+%D8%A7%DB %8C%D9%86%D8%AA%D8%B1%D9%86%D8%AA