Bom eu fiz esse tutorial de Cabeça, Não sei se está certo, e se não estiver postem aqui que eu refaço no VB, se Existe já um Tutorial do Tipo, eu Não achei, por isso resolvi criar.

Abra o Cliente ~ Side -> clique em Project no canto superior Direito do VB e depois em Add Module.

Mude o Name do Module para: modWeb

E Dentro dele coloque isto: mude tudo o que estiver la por isso aqui:

Código:

Option Explicit

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
    (ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String, _
    ByVal lpParameters As String, ByVal lpDirectory As String, _
    ByVal nShowCmd As Long) As Long

Public Function GoToWebsite(ByVal WebSite As String) As Boolean
    Dim res As Long
 
    If InStr(1, WebSite, "http", vbTextCompare) <> 1 Then
        WebSite = "http://google.com.br/" & WebSite
    End If
 
    res = ShellExecute(0&, "open", WebSite, vbNullString, vbNullString, _
        vbNormalFocus)
    GoToWebsite = (res > 32)
End Function

Eu acho que é isso, caso queira para colocar um Orkut adicione isso tambem:

Código:

Public Function GoToWebsiteOrkut(ByVal WebSite As String) As Boolean
    Dim res As Long
 
    If InStr(1, WebSite, "http", vbTextCompare) <> 1 Then
        WebSite = "http://www.orkut.com.br" & WebSite
    End If
 
    res = ShellExecute(0&, "open", WebSite, vbNullString, vbNullString, _
        vbNormalFocus)
    GoToWebsiteOrkut = (res > 32)
End Function

Depois va até a FrmMain ou FrmMenu, adicione um Command Button com o name:
cmdWebSite ou nem precisa colocar nome a Variavel manda sozin, Não chek nada.

Dentro do Command Button Adicione:

Código:

Call GoToWebsite("http:linkaqui")

è isso Testem e me digam se funciona.

Créditos ~
Eu por Criar e Postar

muito bom cara , aqui funfo , +1 cred