If statement not adding up correctly

Hiya all.

I am writing a macro to look a value in one column (Difference) which then adds one onto the appropriate variable. It is semi working, but the macro is adding what should be going on the P and M variable and is adding it on to the W variable.

Am i doing something completly silly? I cant seem to figure out what the problem is.

Thanks for any help.

If LOPNum > 0.5 Then
    PP = PP + 1
    Else
    If LOPNum = 0.4 Then
        P = P + 1
        Else
            If LOPNum = 0.3 Then
            P = P + 1
            Else
                If LOPNum = 0 Then
                W = W + 1
                Else
                    If LOPNum = -0.3 Then
                    M = M + 1
                    Else
                        If LOPNum = -0.4 Then
                        M = M + 1
                        Else
                            If LOPNum <= -0.6 Then
                            MM = MM + 1
                            End If
                        End If
                    End If
                End If
            End If
    End If
End If