This function populates web edit objects with class = dojoComboBox

Function populateDojo (object, sParameter)
   Dim WshShell, sNewParameter

sNewParameter = mid(sParameter,1,len(sParameter)-1)
Set WshShell = CreateObject("WScript.Shell")
wait(2)
object.Click
    WshShell.SendKeys sNewParameter
Wait (3)'Give time for AJAX call to return
WshShell.SendKeys "{DOWN}"
Wait (1)
WshShell.SendKeys "{TAB}"
Wait (3)'Give time for AJAX call to return
Set WshShell = nothing
End Function