Private Sub internet_DblClick(Cancel As Integer)
Dim ss As String
ss = Mid(internet.Column( 1 ),  1 , InStr( 1 , internet.Column( 1 ), "#") -  1 )
GO_GO ss, "", ""
End Sub

Public Function GO_GO(COMU, CHTO, NCR)
On Error GoTo Err_SUB_SUB
Dim OlApp As outlook.Application
Dim mail_res As MailItem
Set OlApp = CreateObject("Outlook.Application")
Set mail_res = OlApp.CreateItem(olMailItem)
With mail_res
.Subject = NCR
.To = COMU
.Body = CHTO
.Display
End With

Exit_func:
 Exit Function

Err_SUB_SUB:
If Err = - 2113732605  Then
    Call Shell("C:\Program Files\Microsoft Office\Office10\OUTLOOK.EXE",  1 )
    Set mail_res = OlApp.CreateItem(olMailItem)
    With mail_res
    .Subject = NCR
    .To = COMU
    .Body = CHTO
    .Display
    End With
Else
    MsgBox Err.Description
    Resume Exit_func
End If

End Function