Sub MyGmail()

    With CreateObject("InternetExplorer.Application")
        .Visible = True
        .navigate "https://www.gmail.com"
        While .Busy = True Or .readyState < 4: DoEvents: Wend
        .document.getElementById("identifierId").Value = "your_email"
        .document.getElementById("identifierNext").Click
        Application.Wait Now + TimeValue("00:00:03")
        .document.getElementsByClassName("whsOnd zHQkBf")(0).Value = "your_password"
        .document.getElementById("passwordNext").Click
    End With
End Sub