Public Sub LaunchGamil() 
    Const strURL_c As String = "http://mail.google.com" 
    Const strUsr_c As String = "1@2.3" 
    Const strPwd_c As String = "foobarbaz" 
    Dim objIE As SHDocVw.InternetExplorer 
    Dim ieDoc As MSHTML.HTMLDocument 
    Dim tbxPwdFld As MSHTML.HTMLInputElement 
    Dim tbxUsrFld As MSHTML.HTMLInputElement 
    Dim btnSubmit As MSHTML.HTMLInputElement 
    On Error GoTo Err_Hnd 
     'Create Internet Explorer Object
    Set objIE = New SHDocVw.InternetExplorer 
     'Navigate the URL
    objIE.Navigate strURL_c 
     'Wait for page to load
    Do Until objIE.ReadyState = READYSTATE_COMPLETE: Loop 
         'Get document object
        Set ieDoc = objIE.Document 
         'Get username/password fields and submit button.
        Set tbxPwdFld = ieDoc.all.Item("Passwd") 
        Set tbxUsrFld = ieDoc.all.Item("Email") 
        Set btnSubmit = ieDoc.all.Item("signIn") 
         'Fill Fields
        tbxUsrFld.Value = strUsr_c 
        tbxPwdFld.Value = strPwd_c 
         'Click submit
        btnSubmit.Click 
         'Wait for page to load
        Do Until objIE.ReadyState = READYSTATE_COMPLETE: Loop 
Err_Hnd: '(Fail gracefully)
            objIE.Visible = True 
        End Sub