Usando un For Each para recorrer las opciones del select:
Código vb:
Ver originalDim Opcion As Object
For Each Opcion In WebBrowser1.Document.getElementById("paises").Options
MsgBox "Texto: " & Opcion.Text & vbCrLf & "Valor: " & Opcion.Value
Next Opcion