如果没有搜索结果，如何关闭与VBA的链接

我在outlook中添加了一些功能作为工具栏上的附加模块。这段代码让我可以直接从浏览器中搜索跟踪号码。代码打开浏览器，并在搜索区域中的运营商网站上自动粘贴所需的跟踪号码。对我来说很好。不过，如果运营商网站上没有显示任何跟踪搜索结果，我想使用VBA关闭网站浏览器（Chrome）。我需要一些小部分的代码，但不想让它太复杂，因此避免硒等。有人可以建议吗？

---

    Sub UPSTracking() 

Dim UPSTrackingsearch As String

Dim GoogleBrowser As String

UPSTrackingInput = InputBox("Enter your Track & Trace", "UPS Tracking")

   
        UPSTrackingsearch = Replace(UPSTrackingInput, " ", "+")
    
        If UPSTrackingInput = "" Then Exit Sub 
     
        
    GoogleBrowser = "C:\Program Files (x86)\Google\Chrome\Application\chrome.exe"

   
  
Shell (GoogleBrowser & " -URL https://www.ups.com/track?loc=en_US&tracknum=" & UPSTrackingsearch & "&requester=WT/trackdetails")

End Sub