Sub OpenURLInChrome()
'copy to end of line
DTE.ActiveDocument.Selection.EndOfLine(True)

'set var
Dim url As String = DTE.ActiveDocument.Selection.Text

'launch chrome with url
System.Diagnostics.Process.Start(Environment.GetFolderPath(Environment.SpecialFolder.LocalApplicationData) + "GoogleChromeApplicationchrome.exe", url)
End Sub