Public Sub LaunchGamil()
        'Sirve para loguearse en una web, abrirla, leer html, etc..
        'usa el control de objetos html y el internet control(ver referencias)
        'http://mail.google.com

        Const strURL_c As String = "http://es.fifa.com/theclub/login.htmx"
        Const strUsr_c As String = "aquielcorreo"
        Const strPwd_c As String = "aquilacontraseña"
        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
        objIE = New SHDocVw.InternetExplorer
        'Navigate the URL
        objIE.Navigate(strURL_c)
        'Wait for page to load
        Do Until objIE.ReadyState = SHDocVw.tagREADYSTATE.READYSTATE_COMPLETE : Loop
        'Get document object
        ieDoc = objIE.Document

        'prueba para averiguar los nombres de los items dentro de la web
        For Each HtmlElementCollection In ieDoc.all
            RichTextBox1.Text += HtmlElementCollection.ToString
        Next

        'Get username/password fields and submit button.
        'Passwd,Email,signIn

        tbxPwdFld = ieDoc.all.item("Passwd")
        tbxUsrFld = ieDoc.all.item("Email")
        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 = SHDocVw.tagREADYSTATE.READYSTATE_COMPLETE : Loop
Err_Hnd:  '(Fail gracefully)
        objIE.Visible = True
    End Sub