Основывается на решении CruleD:
Private Sub getOption()
Dim optionList as new List(Of String)
For Each element As HtmlElement In WebBrowser1.Document.GetElementById("def").Children
optionList.Add(element.InnerHtml)
Next
Console.WriteLine(String.Join(",", optionList.ToArray))
End Sub
В окне вывода будет отображаться:
Элемент 1, Элемент 2, Элемент 3
Если вы хотитепреобразовать список в массив:
Dim myArray As String() = optionList.ToArray