userformda internet yoksa uyarı versin

[chakistes]

merhaba arkadaşlar google drivere veri aktarırken internet kapalı ise sunucu adı veya adresi çözümlenemedi hatası veriyor bunun yerine internet bağlantısı yok vermesini naısl yapa
googleSheetURL = URL_firstPart & URL_secPart
Set xmlHTTP = New ServerXMLHTTP60
xmlHTTP.Open "Post", googleSheetURL, False
xmlHTTP.setRequestHeader xmlHTTPHeader, xmlID
xmlHTTP.send
If xmlHTTP.statusText = "OK" Then
MsgBox "BAŞARIYLA TAMAMLANDI.", vbInformation
Else

MsgBox "İNTERNET YOK ", vbCritical

 

[chakistes]

biraz araştırarak örnek kodlar bularak sorunu çözdüm