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.