How to scrape option values from select element

Public Sub selectscrape()
Dim bot As New WebDriver, myselect As WebElement, options As WebElements, item As WebElement
bot.Start "chrome", "http://www.roboform.com"
bot.Get "/filling-test-all-fields"
Set myselect = bot.FindElementByName("40cc__type")
Set options = myselect.FindElementsByTag("option")
For Each item In options
MsgBox (item.Text)
Next
End Sub
'credits - codingislove.com