This is part of a sub that does some things with 4 digit strings. cel is a range. This code shows a syntax error; what's wrong with it?

Code:
 For Each cel In MyRange
            If Left$(Cells(lngRow, "CR"), 3) = cel.value or_
               Left$(Cells(lngRow, "CR"), 2) & Right$(Cells(lngRow, "CR"), 1) = cel.value  or _
               Right$(Cells(lngRow, "CR"), 3) = cel.value or _
               left$(Cells(lngRow, "CR"), 1) & Right$(Cells(lngRow, "CR"), 2) = cel.value then
                Stop
            End If
        Next