Автоматизировать веб с помощью Excel VBA

Question

Я пытаюсь автоматизировать этот сайт: "checkcosmetic.net" с помощью Excel VBA. Что я сделал до сих пор:

Dim ie As New InternetExplorer
Dim frm As Object
Dim htm As HTMLDocument
____________________________________________________

Sub checkNow()
ie.navigate ("www.checkcosmetic.net")
ie.Visible = True
ie.Silent = True
Do
Loop Until ie.readyState = READYSTATE_COMPLETE
Set htm = ie.document
Set frm = htm.forms.Item

For Each elm In frm
'
'how to select "brands?"
'
If elm.ID = "codeinput" Then
elm.Value = "09076JU40" 'LOT No. of a Vaseline body moisturizing cream
End If

If elm.ID = "codesubmit" Then
elm.Click 'not triggering?
End If
Next elm
End Sub

Что я не могу сделать, так это выбрать программный список опций.
Моя цель - проверить срок годности косметики из Excel.
Например:
   товар: "Вазелин", лот №: "09076JU40" => "7 сентября 2016 года"