Try this parethesis arrangement
If (Mid(CStr(.Cells(1, 8).Value), 8, 1) = "8") And (Val(Mid(CStr(.Cells(1, 8).Value), 8, 9)) Mod 2) <> 0) Then