'Berkant Ozturk - Access-Sql.com
 
Dim xmlDoc As MSXML2.DOMDocument50
 
    Dim xmlSingleNode As MSXML2.IXMLDOMNode
 
    Set xmlDoc = New MSXML2.DOMDocument50
 
    xmlDoc.async = False
 
 
    xmlDoc.Load ("http://www.showmyip.com/xml/")
    Set XmlIPNo = xmlDoc.selectSingleNode("//ip")
    Set XmlHost = xmlDoc.selectSingleNode("//host")
    'Set XMLSehir = xmlDoc.selectSingleNode("//city") 
    Set XMLUlke = xmlDoc.selectSingleNode("//country")
 
       Me.TxtIP = XmlIPNo.Text
       Me.TxtHost = XmlHost.Text
       'Me.TxtSehir = XMLSehir.Text 'sağlayıcı bu hizmeti sadece abonelere sunuyormuş..
       Me.TxtUlke = XMLUlke.Text
 
    Set xmlDoc = Nothing

Sub test()
    If Internet_VarMi Then
        MsgBox "Evet, Internete bağlısınız.", vbInformation
    Else
        MsgBox "Üzgünüm, Internete bağlı değilsiniz.", vbExclamation
    End If
End Sub
 
Function Internet_VarMi(Optional URL As String = "") As Boolean
    Set HTTP = CreateObject("MSXML2.xmlHTTP")
    On Error Resume Next
    HTTP.Open "get", IIf(URL = "", "http://www.google.com.tr", URL), False
    HTTP.send
    If Not Err.Number = -2146697211 Then Internet_VarMi = True
End Function