MsgBox suivant deux Conditions

Option Explicit
Dim Quit As String
Sub EsSai()
    Quit = MsgBox("Etes-vous sur de vouloir valider cette facture Comme Payée???", vbYesNo + vbInformation, "Facture Payée")
    If Quit = vbYes Then
        MsgBox "TonCodePayé"
            Else
        MsgBox "TonCodeNonPayé"
    End If
    End Sub

[COLOR=GRAY][B][I]DANS LE MODULE DE CODE DU USERFORM (OU DE LA FEUILLE SI COMBOBOX SUR FEUILLE)[/I][/B][/COLOR]

[COLOR=NAVY]Private Sub[/COLOR] Cbx_Change()
[COLOR=NAVY]Dim[/COLOR] Rep [COLOR=NAVY]As Integer[/COLOR]

    Rep = MsgBox("Etes-vous sur de vouloir valider cette facture comme """ & _
            IIf(cbx.Text = "NP", "Non ", "") & "Payée""???", vbYesNo)
    
    [COLOR=NAVY]If[/COLOR] Rep = vbYes [COLOR=NAVY]Then[/COLOR]
        [COLOR=GREEN]'Si oui...[/COLOR]
    [COLOR=NAVY]Else[/COLOR]
        [COLOR=GREEN]'Si non...[/COLOR]
    [COLOR=NAVY]End If
End Sub[/COLOR]