What are you doing? the AND is producing a TRUE or FALSE result. Then you
can't compare "R" 0 (a character with a digit). You can search for a
String as folows

if Instr(MyStr, "R") 0

Instr indicates where one string is llocated i another str string. If the
string is not found you get 0.

"Ken" wrote:

I have a "Select Case" arrangement (below) and it is giving me a Type
mismatch error. This is based on a user form.
I tried using the Val() on the two numbers with no results. The variable
deptx,y is previously populated and works.
any help is greatly appreciated.

SELECT CASE Frm_Locations_UnBound.Side AND
Frm_Locations_UnBound.DeptFromRefX AND Frm_Locations_UnBound.DeptFromRefY
Case Is = "R", Is 0, Is 0 'NE Quad Right
deptx = deptx
depty = depty * -1
Case Is = "L", Is 0, Is 0 'NE Quad Left
deptx = deptx * -1
depty = depty
Case Is = "R", Is 0, Is < 0 'SE Quad Right
deptx = deptx * -1
depty = depty * -1
Case Is = "L", Is 0, Is < 0 'SE Quad Left
deptx = deptx
depty = depty
Case Is = "R", Is < 0, Is < 0 'SW Quad Right
deptx = deptx * -1
depty = depty
Case Is = "L", Is < 0, Is < 0 'SW Quad Left
deptx = deptx
depty = depty * -1
Case Is = "R", Is < 0, Is 0 'NW Quad Right
deptx = deptx
depty = depty * -1
Case Is = "L", Is < 0, Is 0 'NW Quad Left
deptx = deptx * -1
depty = depty * -1
End Select