Zautomatyzuj sieć za pomocą excel vba

Próbuję zautomatyzować tę stronę: „checkcosmetic.net” przy użyciu excel vba. Do tej pory zrobiłem:

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

Nie mogę programowo wybrać listy opcji.
Moim celem jest sprawdzenie daty ważności kosmetyków z Excela.
Na przykład:
produkt: „wazelina”, numer partii: „09076JU40” = & gt; „7 września 2016 r.”