ok I found the answer and it only took me 3 houres :-)
Shell("c:\Windows\explorer.exe ""search-ms:displayname=Search%20Results&crumb=System.Generic.String%3A" & & "&crumb=location:%", vbNormalFocus)
to add location it is easyest to do the search manually just the way you want it to work, than copy the text after the "location:"
