fehlermeldung bei sub

Private Sub Übernahme_Click()
If test <> "peter" Or test <> "ralf" Then
test = MsgBox ("Bitte erkundigen Sie sich nach dem korrekten Namen! Vielen Dank.", vbOKOnly, "Fehlermeldung")
Exit Sub
End If

Danke.

Peter