Function menuoption(StrParameters)
Dim i,j, Inputstring,obj
Inputstring=split(StrParameters,":")
Set obj=createobject("wscript.shell")
If Ubound( Inputstring)>=0Then
For i=1 to Inputstring(0)
Wait(1)
obj.SendKeys "{DOWN}"
Next
Else
Reporter.ReportEvent micFail,"Menu Option","We are not able to select Menu Options"
Exit function
End if
If ubound( Inputstring)=1Then
For j=1 to Inputstring(1)
wait(1)
If j=1 Then
obj.SendKeys "{RIGHT}"
Elseif j>1 Then
obj.SendKeys "{DOWN}"
End If
Next
Else
Reporter.ReportEvent micFail,"Menu Option","We are not able to select Menu Options"
Exit Function
End If
wait(2)
obj.SendKeys "{ENTER}"
Reporter.ReportEvent micPass,"Menu Option","We are able to select Menu Options"
End Function