Query Run Gives "error In Criteria Expression" HELP?

I have a query with the following function to correct a system code.

I want to exclude a certain code from the function output from the query records after i correct the coding. . . I have run the query with no selection criteria, all works fine, there are no null fields. As soon as I put <>"53" in the criteria for this function, i get the error message "Error in criteria Expression."

SystemSalesType is from 1 to 53 from the field data.

Any help, or what am I missing?

thanks in advance,

sportsguy

Function Recode(anyFacePrice As Currency, anyMarket As String, anyNewChange As String, SystemSalesType As String) As String

If anyMarket = "Electrical" And anyNewChange = "N" And SystemSalesType = "53" And anyFacePrice >= 15000 Then
Recode= "51"
ElseIf anyMarket = "Sprinkler" And anyNewChange = "N" And SystemSalesType = "53" And anyFacePrice >= 50000 Then
Recode= "51"
ElseIf anyMarket = "Suppression" And anyNewChange = "N" And SystemSalesType = "53" And anyFacePrice >= 50000 Then
Recode= "51"
ElseIf anyMarket = "Electrical" And anyNewChange = "C" And SystemSalesType = "53" And anyFacePrice >= 15000 Then
Recode= "51"
ElseIf anyMarket = "Sprinkler" And anyNewChange = "C" And SystemSalesType = "53" And anyFacePrice >= 50000 Then
Recode= "51"
ElseIf anyMarket = "Suppression" And anyNewChange = "C" And SystemSalesType = "53" And anyFacePrice >= 50000 Then
Recode= "51"
ElseIf anyMarket = "Electrical" And anyNewChange = "C" And SystemSalesType = "53" And anyFacePrice <= -15000 Then
Recode= "51"
ElseIf anyMarket = "Sprinkler" And anyNewChange = "C" And SystemSalesType = "53" And anyFacePrice <= -50000 Then
Recode= "51"
ElseIf anyMarket = "Suppression" And anyNewChange = "C" And SystemSalesType = "53" And anyFacePrice <= -50000 Then
Recode= "51"
Else
Recode= SystemSalesType
End If