VBA Internet Explorer Automation

Dim ie As SHDocVw.InternetExplorer
'Set ie = CreateObject("InternetExplorer.Application")
'Set ie = GetObject("new:{D5E8041D-920F-45e9-B8FB-B1DEB82C6E5E}")
Set ie = New InternetExplorerMedium
While ie.busy
DoEvents
Wend
ie.Visible = False
ie.navigate ("https://www.vba-market.com/submit-question/")
While ie.busy
DoEvents
Wend
Set doc = ie.Document
Set hcol = doc.getElementsByTagName("input")
For Each text In hcol
If text.Name = "your-name" Then
text.Value = "Dylan Gregory"
End If
Next
Set doc = ie.Document
Set hcol = doc.getElementsByTagName("input")
For Each text In hcol
If text.Name = "your-email" Then
text.Value = "info@vba-market.com"
End If
Next
Set doc = ie.Document
Set hcol = doc.getElementsByTagName("input")
For Each text In hcol
If text.Name = "your-message" Then
text.Value = "Hello World!"
End If
Next