*array not included as I am currently researching available options(and no one seems to have an available answer on google)
Code:
Dim Results As SearchResultCollection = objSearch.FindAll()
Dim objpgID As String
For Each Result As SearchResult In