Una persona que sabe mucho me ha resuelto esta segunda pregunta.
Desde aquí le doy las gracias.
es así:
Cita: Private Sub TextBox15_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
On Error Resume Next
Dim nFile As Long
Dim fil As String
nFile = FreeFile
fil = ThisWorkbook.Path
fil = fil + IIf(Right(fil, 1) <> "\", "\", "") + "temp.url"
Open fil For Output As #nFile
Print #nFile, "[InternetShortcut]"
direccion = "URL=mailto:" + TextBox15.Text
Print #nFile, direccion
Close #nFile
Shell "rundll32.exe shdocvw.dll,OpenURL " & fil, vbNormalFocus
Kill fil
On Error GoTo 0
End Sub