How to fetch the valid suggestions in to variables

[Saket]

This is quite interesting for me, I am trying to achive the required.
I am able to get the Suggestion labels only not the results count.
I have done this with very easy method, see if this helps you in any way.

Code:

Browser("Google").Page("Google").WebEdit("q").Click
set WshShell = CreateObject("WScript.Shell")

WshShell.SendKeys "s"
wait 3
WshShell.SendKeys "{DOWN}"

sFirstSuggestion = Browser("Google").Page("Google").WebEdit("q").GetROProperty("value")
Print sFirstSuggestion

Do until sSugg = sFirstSuggestion
    'wait 3
    WshShell.SendKeys "{DOWN}"
    sSugg = Browser("Google").Page("Google").WebEdit("q").GetROProperty("value")
    Print sSugg
    
Loop