error 13 type mismatch input box

[cluckers]

I am getting an error 13 type mismatch on line "If Not comtypeeq = "C" Or "P"
Or "" Then"

can you help?

Thanks

Code:
Dim comovrdeq As String
Dim comtypeeq As String
Dim comovrdmf As String
Dim comtypemf As String

commissionadjust:

If MsgBox("Do you want to discount the commissions?", vbYesNo) = vbYes Then
comtypeeq = InputBox("Enter override type: cents/share = C; Percent
discount= P; dollar amount/trade = leave blank")


If Not comtypeeq = "C" Or "P" Or "" Then
MsgBox ("You did not select a valid discount. Try Again")
Else

 

[JLatham]

You have to be explicit with each test:

If comtypeeq<> C" and comtypeeq <> "P" And comtypeeq<>"" Then
....
Else
....
End IF