Formun Closed eventına şu kodları ekliceksin

Dim r As Long
r = ShellExecute(0, "open", "http://www.siteismi.com/", 0, 0, 1)