Dim w As WebBrowser
Global oDocument As MSHTML.HTMLDocument
Set w = Forms!f!w.Object
w.Navigate2 "http..."
Set oDocument = w.Document

Dim oCombo1 As Object, oCombo2 As Object
Set oCombo1 = oDocument.all.tags("select")(0)
Set oCombo2 = oDocument.all.tags("select")(1)
Dim v As Variant
For Each v In oCombo1.options
    oCombo1.Value = v.Value 'вариант 1'
    v.Selected = True 'вариант 2'
    oCombo1.Click 'это тоже пробовал'
    oCombo1.FireEvent "onclick" 'и это тоже пробовал'
    DoEvents
    Debug.Print oCombo1.innerHTML
    Debug.Print oCombo2.innerHTML
Next

<select class="form-control ng-valid ng-dirty ng-valid-parse ng-touched" ng-model="currentTubeLine" ng-options="line.name for line in lines">

<select class="form-control ng-valid ng-touched ng-dirty ng-valid-parse" ng-show="currentTubeLine" ng-model="currentTubeLineStation" ng-options="station.name for station in currentTubeLineList">