Erreur dans le code d'un commandbutton

Bonjour,

Je voulais savoir ce qui ne va pas dans le code de ma commandbutton dans mon userform. Il s'agit d'un userform qui s'affiche à l'ouverture d'un fichier excel.

La première ligne s'affiche en jaune (je pense que cela est normal) mais le "me" de unload me se met en surbrillance.

Merci de votre aide.

Private Sub CommandButton2_Click()

'commandbutton2 est ok

If TextBox2 = "DAMOUR" And TextBox1 = "WGV908" Then

'Fermeture du formulaire.

Unload Me

Function VerifMDP(Utilisateur As String, MdP As String) As Boolean

Dim rngTrouve As Range

VerifMDP = False 'par défaut, renvoie FAUX

With Sheets("LOG") 'dans la feuille LOG

'cherche, colonne A, le nom d'utilisateur saisi

Set rngTrouve = .Columns(1).Cells.Find(NOM, lookat:=xlWhole)

If rngTrouve Is Nothing Then 'si il ne trouve pas

VerifMDP = False 'la fonction renvoie faux

Else 's'il le trouve

'vérifie que le mot saisi feuille LOG colonne B est identique

'au mot de passe saisi dans l'USF

If rngTrouve.Offset(0, 1) <> MdP Then

VerifMDP = False 'si FAUX

Else

VerifMDP = True 'si VRAI

End If

End If

End With

End Function

Else

MsgBox "IDENTIFICATION INCORRECTE !!!", vbExclamation

End If

End Function