Change to Chrome browser

[josros60]

Hi,

how can i modify the code below to use Chrome instead of Internet explorere:

Sub IE_login()    Dim ie As InternetExplorer
    Dim C
    Dim ULogin As Boolean, ieForm
    Dim MyPass As String, MyLogin As String
     
redo:
    MyLogin = Application.InputBox("Please enter your TNW login", "TNW username", Default:="6833-9390", Type:=2)
    MyPass = Application.InputBox("Please enter your TNW password", "TNW Password", Default:="changeme", Type:=2)
     
    If MyLogin = "" Or MyPass = "" Then GoTo redo
     
    Set ie = New InternetExplorer
    ie.Visible = True
    ie.Navigate "https://secure.shawbusinesssolutions.ca/html/billing_system_login.jsp"
     
     'Loop until ie page is fully loaded
    Do Until ie.ReadyState = READYSTATE_COMPLETE
    Loop
     
     'Look for password Form by finding test "Password"
    For Each ieForm In ie.Document.forms
        If InStr(ieForm.innerText, "Password") <> 0 Then
            ULogin = True
             'enter details
            ieForm(0).Value = MyLogin
            ieForm(2).Value = MyPass
             'login
            ieForm.submit
            Exit For
        Else
        End If
    Next
    If ULogin = False Then MsgBox "User is aleady logged in"
    Set ie = Nothing
End Sub

thank you