Ah... mi dimenticavo di dire che attualmente (per fare test) uso il metodo upenURL, così utilizzato:
codice:
Private Sub OpenURL(url As String)
Dim inte
Set inte = CreateObject("InternetExplorer.application")
inte.Visible = True 'Mettere a False se non si vuole attivare
inte.Navigate CStr(url)
'inte.Close 'commentato sennò ho problemi
End Sub
Public Sub comunicaUscita()
If smsend = True Then
'Apro la pagina Web
OpenURL "indirizzo_pagina_da_aprire"
Else: End If
End Sub
ma la pagina web è chiaramente in mostra, con l'indirizzo riportato.