Condition if variable different than x or y

Hello !

Today I have a simple question.

I have a cell that I want to contain "C" or "NC". When I press my button control, I want a MsgBox to pop up if it's different.
I tried this :

Sub Macro1()
Dim strContent As String
strContent = Range('sheet1!A1").Value

If strContent <> ( "C" Or "NC") then
MsgBox "The content is incorrect.", vbOkOnly, "Error"
End If
End Sub

Of course, it doesn't work, or else I wouldn't be there

Is there a way to do it like so, or do I have to write strContent <> "C" and strContent <> "NC" ?

Thank you !

Hi.
try this:

Sub Macro1()

    With Worksheets("Sheet1").Range("A1")
        If .Value <> "C" And .Value <> "NC" Then
            MsgBox "The content is incorrect.", vbOKOnly, "Error"
        Else
            MsgBox "The content is correct.", vbOKOnly, "OK"
        End If
    End With

End Sub

Or a change event

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A1")) Is Nothing Then
    If Target <> "C" Or Target <> "NC" Then MsgBox "The content is incorrect.", vbOKOnly, "Error"
End If
End Sub

@mancubus : Yeah, using "with" could save me some space, thanks.
@Vraag en antwoord : I don't think I need the change event. Plus, if I write If Target <> "C" Or Target <> "NC" It will always be true, since the value can't be "C" and "NC" at the same time. Schrödinger would disagree with me, though

oops must be And

With a change event you don't need a button.

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A1")) Is Nothing Then
    If Target <> "C" And Target <> "NC" Then 'Or If UCase(Target) <> "C" And UCase(Target) <> "NC" Then
        MsgBox "The content is incorrect.", vbOKOnly, "Error"
        Target.Select
    End If
End If
End Sub

I figured that ahah

Yes I know how it works, but the check has to be done just before the validation so I tell you I don't need it :P But thank you anyway !