Создать ссылку на страницу в Интернете.
Данный пример разместит на рабочем столе ярлык на мой сайт (при условии, что ваш путь к рабочему столу = "C:\windows\Рабочий стол").

Sub CreateInternetShortCut(URLFile As String, URLTarget As String)
Dim intFreeFile As Integer
intFreeFile = FreeFile
Open URLFile For Output As intFreeFile
Print #intFreeFile, "[InternetShortcut]"
Print #intFreeFile, "URL=" & URLTarget
Close intFreeFile
End Sub

Private Sub Form_Load()
CreateInternetShortCut "C:\windows\Рабочий стол\test.url", "http://vbcrlf.narod.ru"
End Sub