Try using Wscript SendKey as in sample below
dim WshShell
Browser("<browser name>").Page("<page name>").WebElement("<name>").Click
Set WshShell = CreateObject("WScript.Shell")
WshShell.SendKeys "{DOWN}",True
WshShell.SendKeys "{ENTER}"