'для создания гипперссылки на Label на форме
'открыть ссылку
Private Sub Label1_Click()
Dim oShell
Dim sUrl As String
    'открыть ссылку
    sUrl = "http://www.yandex.ru/" 'или, например, C:\Temp
    Set oShell = CreateObject("Wscript.Shell")
    oShell.Run (sUrl)
End Sub

'при щелчке на Label открыть форму почтового клиента для написания письма
'объявляем WinAPI функцию
Dim oShell As Object
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)
Const SW_SHOWNORMAL =  1 
Private Sub lblEmail_Click()
    Dim sEmailAddy As String
    sEmailAddy = "someone@email.com"
    ShellExecute  0 &, "open", "mailto:" & sEmailAddy, _
                  vbNullString, vbNullString, SW_SHOWNORMAL
    Unload Me
End Sub