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" & <variable> & "&crumb=location:<your search 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:"
