Enclose & Display Variable Within Parenthesis/Brackets

I'm trying to enclose a variable declared as string with a numeric value within parentheses. here's the code I have...

Dim strQuery As String, strPortIP As String
strQuery = Application.InputBox(Prompt:="Please enter the port or IP you want:", Title:="Query Input", Type:=2)
strPortIP = Application.InputBox(Prompt:="Is this a port or IP?",Title:= "Query Type", Type:=2)

If strPortIP = "Port" Or "port" Then strQuery = "(" & strQuery & ")"

I'm getting run-time error '13': type mismatch on the "If..." statement. I'm trying to set the variable strQuery to "(80)", for example, to do a Find within my data. Without the "()" I get ALL occurrences of "80" and that's not what I need...