Ah scusa nn avevo capito

In una funzione che viene eseguite al FormLoad o quando l'utente chiede di effettuare il login

La funzione è la seguente:
codice:
 

    Public Sub Login(User As String, Password As String)
        Dim Verifica As String

        If User <> "" And Password <> "" Then

            WebBrowser1.Navigate("http:\\www.XXXXX.it\PaginaLogin.htm")

            Verifica = WebBrowser1.Document.Body.InnerText.ToString

            If Verifica = "Autenticato" Then
                Me.Enabled = True
                Autentica = "OK"
            Else
                MsgBox("Attenzione, credenziali inesatte o utente non abilitato" & vbCrLf & "Controlla i dati inseriti o contatta XXXXper ulteriori informazioni")
            End If

        End If
    End Sub