How to code this for chrome as opposed to IE

[Zemexi]

Here is the code that works fine for IE but I would like to move to using chrome. Any help is appreciated.


Dim ie As Object





Set ie = CreateObject("INTERNETEXPLORER.APPLICATION")



ie.navigate "https://activation.xfinityhome.com/xhAccountInfoPortal/portal/index"



ie.Visible = True



While ie.Busy

DoEvents

Wend


Application.Wait (Now + TimeValue("00:00:02"))
ie.document.All("accountNumber").Value = ThisWorkbook.Sheets("ivs").Range("a1")
ie.document.All("abutton").Click

 

[Este1s]

I have very simple JavaScript code that copies values from one form into another. It works perfectly in Chrome, but in IE not everything is being copied KrogerFeedback.