How to select item within WebMenu

[learnasugo]

This is what my code looks like:
 Elements =  Browser().Page().WebElement().GetROProperty("all items")
 iTemCount =  Elements.Count

        For intCounter = 0 to iTemCount - 1
            WebValue = Elements(intCounter).GetROProperty("innertext")
            If Instr (1, LCase(WebValue), LCase(CrReg)) Then
            MsgBox CrReg
                Setting.WebPackage("ReplayType") = 2
                Elements(intCounter).Click  --------------This is where my code fails. i.e I cannot click on the desired value
                Setting.WebPackage("ReplayType") = 1
                Exit For
            End If
        Next