Dim objIE As SHDocVw.InternetExplorer
    Dim objCurrent As SHDocVw.InternetExplorer
    Dim objWindows As SHDocVw.ShellWindows
    Dim strFullName As String
    
    Set objWindows = CreateObject("Shell.Application").Windows
    
    For Each objIE In objWindows
        strFullName = objIE.FullName
        If Right$(strFullName,  12 ) = "IEXPLORE.EXE" Then
            Debug.Print objIE.LocationURL, objIE.HWND
            If InStr(objIE.LocationURL, "www.google.ru") >  0  Then
                Set objCurrent = objIE.Application
                objCurrent.Navigate "www.ya.ru"
            End If
        End If
    Next objIE

Private Declare Function InternetGetConnectedState Lib "wininet.dll" ( _
  ByRef lpdwFlags As Long, _
  ByVal dwReserved As Long) As Boolean
  
Private Enum Flags
   INTERNET_CONNECTION_LAN = &H2
   INTERNET_CONNECTION_MODEM = &H1
   INTERNET_CONNECTION_PROXY = &H4
   INTERNET_RAS_INSTALLED = &H10
End Enum
  
Sub DetectConnection()
    Dim lngFlags As Long

    If InternetGetConnectedState(lngFlags,  0 ) Then
        If lngFlags And Flags.INTERNET_CONNECTION_LAN Then
             MsgBox ("LAN connection.")
        ElseIf lngFlags And Flags.INTERNET_CONNECTION_MODEM Then
             MsgBox ("Modem connection.")
        ElseIf lngFlags And Flags.INTERNET_CONNECTION_PROXY Then
             MsgBox ("Proxy connection.")
        End If
    Else
         MsgBox ("Not connected.")
    End If
End Sub

Private Declare Function InternetDial Lib "Wininet.dll" ( _
  ByVal hwndParent As Long, _
  ByVal lpszConnectoid As String, _
  ByVal dwFlags As Long, _
  ByRef lpdwConnection As Long, _
  ByVal dwReserved As Long) As Long

Private Declare Function InternetHangUp Lib "Wininet.dll" ( _
  ByVal lpdwConnection As Long, _
  ByVal dwReserved As Long) As Long

Private Declare Function GetActiveWindow Lib "user32" () As Long

Private Enum DialUpOptions
   INTERNET_DIAL_UNATTENDED = &H8000
   INTERNET_DIAL_SHOW_OFFLINE = &H4000
   INTERNET_DIAL_FORCE_PROMPT = &H2000
End Enum

Private Const ERROR_SUCCESS = &H0
Private Const ERROR_INVALID_PARAMETER = &H87

Private mlConnection As Long

Sub DialUp()
    Dim lngResult As Long
    Dim hwnd As Long
    
    hwnd = GetActiveWindow

    lngResult = InternetDial(hwnd, _
      "My Connection", _
      DialUpOptions.INTERNET_DIAL_FORCE_PROMPT, _
      mlConnection,  0 )

    If lngResult = ERROR_SUCCESS Then
        MsgBox "Dial Up Successful", , "Dial-Up Connection"
    Else
        MsgBox "UnSuccessFull Error Code " & lngResult, , "Dial-Up Connection"
    End If
End Sub

Sub HangUp()
    Dim lngResult As Long
    
    If Not (mlConnection =  0 ) Then
         lngResult = InternetHangUp(mlConnection,  0 &)
         
         If lngResult =  0  Then
             MsgBox "Hang up successful", , "Hang Up Connection"
         Else
             MsgBox "Hang up NOT successful", , "Hang Up Connection"
         End If
    Else
         MsgBox "You must dial a connection first!", , "Hang Up Connection"
    End If
End Sub