Option button click on IE is not working

Question

I am trying to play around with Excel VBA code to select an option button on a webpage. For some reason the option button is not getting selected even though there is no errors when executing the code. Please share your thoughts.
Excel VBA code block given below.
Sub Voting()
Dim MyHTML_Element As IHTMLElement
Dim MyURL As String
Dim x As Object
MyURL = "https://www.surveymonkey.com/r/?sm=%2bZAmxFYpsYG1R61ELcYA6g%3d%3d"
Set MyBrowser = New InternetExplorer
With MyBrowser
.Silent = True
.navigate MyURL
.Visible = True
Do
Loop Until .readyState = READYSTATE_COMPLETE
Do Until Not x Is Nothing
Set x = .document.getElementById("ID of one of the option button")
Loop
Set x = Nothing
.document.getElementById("ID of one of the option button").Click
Set HTMLDoc = .document
For Each MyHTML_Element In HTMLDoc.getElementsByTagName("button")
If MyHTML_Element.Type = "submit" Then MyHTML_Element.Click: Exit For
Next
Set HTMLDoc = Nothing
End With
MyBrowser.Quit
Set MyBrowser = Nothing
End Sub

Answer 1

You must not be hitting the button.  Please see this example.
http://vbadud.blogspot.com/2009/08/how-to-login-to-website-using-vba.html
Also, to dump everything from the site to Excel, try this.
Sub DumpData()
Set IE = CreateObject("InternetExplorer.Application")
IE.Visible = True
URL = "http://finance.yahoo.com/q?s=sbux&ql=1"
'Wait for site to fully load
IE.Navigate2 URL
Do While IE.Busy = True
DoEvents
Loop
RowCount = 1
With Sheets("Sheet1")
.Cells.ClearContents
RowCount = 1
For Each itm In IE.document.all
.Range("A" & RowCount) = itm.tagname
.Range("B" & RowCount) = itm.ID
.Range("C" & RowCount) = itm.classname
.Range("D" & RowCount) = Left(itm.innertext, 1024)
RowCount = RowCount + 1
Next itm
End With
End Sub
Joel, who frequents these forums, gave me that a long time ago.  It's server me well for many projects.
Knowledge is the only thing that I can give you, and still retain, and we are both better off for it.