Automatize a web usando o excel vba

Question

Estou tentando automatizar este site: "checkcosmetic.net" usando o excel vba. O que eu fiz até agora é:

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

O que eu não consigo fazer é selecionar a lista de opções de forma programática.
Meu objetivo é verificar a data de validade dos cosméticos do Excel. Por exemplo: Produto do produto: "vaselina", lote no .: "09076JU40" = > "7 de setembro de 2016"