Set IE = CreateObject("InternetExplorer.Application")
IE.navigate "https://net.tax.nat.gov.tw/PLRX/Lnd_Login"
IE.Visible = True
While IE.Busy
WScript.Sleep 50
Wend
Set ipf = IE.document.all.userPassword
ipf.Value = "dd/84268624" 'fill in the text box
Set ipf = IE.document.all.Login
ipf.Click 'click the submit button
WScript.Sleep 1000
IE.Quit