Wenn eine Internetverbindung benötigt wird wie z.B. bei Nutzung der FTP-Funktionen oder Updatefunktion, ist es sinnvoll vorher zu testen, ob überhaupt eine Internetverbindung besteht. Das ist mit der Funktion InternetConnection auf einfache Weise möglich
if InternetConnection then

 msgbox "Sie sind mit dem Internet verbunden!,vbInformation,"Hinweis"

end if

—————————————————————————— Function InternetConnection

Dim obj Set obj = GetObject("winmgmts:Win32_PingStatus.address='" & "google.de" & "'")

if IsNull(obj.StatusCode) or obj.StatusCode <> 0 Then

 msgbox "Keine Internetverbindung!",vbInformation,"Hinweis"
 InternetConnection = false

else

 InternetConnection = true

end if

End Function ——————————————————————————
Als Testadresse wird "google.de" benutzt. Sie kann durch eine beliebige andere Adresse ersetzt werden.