1-Vá em frmMaine crie um Commandbutton
2-Clike duas vezes no Commandbutton e adicione:

Código:

Call GoToWebsite("http://seu site aki.com/")

3-Crie uma module e ronomeia para modWeb2 ,Agore clike duas vezes na module e adicione:

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 = "" & WebSite
    End If
 
    res = ShellExecute(0&, "open", WebSite, vbNullString, vbNullString, _
        vbNormalFocus)
    GoToWebsite = (res > 32)
End Function

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

Creditos:Lost Style
e a mim por te consertado um bug,e postado

Muito bom esse sistema +1 credito o seu "Primeiro" Oo que continue postando assim e muito bem Jovem

Obrigado