Excelle internet bağlantısında hata ekranı

[zeugma35]

merhabalar,

aşağıdaki kod ile exceldeki verileri internetteki alanlara userform ile aktarıyorum

fakat sitede bi sorun olduğunda yada internet bağlantısı kaybolduğunda uyarı verip tekrar forma dönsün istiyorum biraz uyarLama yaptım olmadı yardımcı olabilirmisiniz

Dim URL As String

Dim IE As Object
  Static HATA As Integer
    
    On Error GoTo HATALI_GİRİŞ
   

URL = "https://uyg.sgk.gov.tr/SigortaliTescil/amp/loginldap"

Set IE = CreateObject("InternetExplorer.Application")

With IE
.navigate URL
.Visible = 1
ShowWindow IE.hWnd, 3

Do Until IE.readyState = 4: DoEvents: Loop
Do While IE.Busy: DoEvents: Loop


IE.Document.all("j_username").Value = TextBox15.Value
IE.Document.all("isyeri_kod").Value = TextBox16.Value
IE.Document.all("j_password").Value = TextBox17.Value
IE.Document.all("isyeri_sifre").Value = TextBox18.Value

Do Until IE.readyState = 4: DoEvents: Loop
Do While IE.Busy: DoEvents: Loop
'----------------------------

   
HATALI_GİRİŞ:
    MsgBox ".... HATA...." _
    & Chr(10) & "Lütfen daha sonra tekrar deneyiniz.", vbCritical, "DİKKAT !"
    
     userform11.show
 End With
'ie.Quit: Set ie = Nothing

TextBox13 = ".": TextBox13 = ""

End Sub