Using VBA to Webscrape a WebSite with Login Page

Question

The current Code in VBA is

 Option Explicit
 Sub login ()
 Dim i As SHDocVw.InternetExplorer
 Set i =New InternetExplorer
 i.Visible=True
 i.navigate ("h