Private
Sub OpenUrl()SubOpenUrl(ByRefurlAsString) DimbrowserAsString = GetDefaultBrowser() If browser.Length >0Then Dim psi As ProcessStartInfo =New ProcessStartInfo psi.UseShellExecute =False psi.Arguments = url psi.FileName = browser System.Diagnostics.Process.Start(psi) Else System.Diagnostics.Process.Start(url) EndIf End Sub PrivateEnd Function