Why is this macro not working?

Hi Guys!

I started this macro with
If NLP = 4 Then , and was not working.
Do you know why?

Thanks a lot
Detlef

Then I tried If NLP > 3 Then, and it worked

'Calculate the Coordinates for 4. Lower Pickets
    If NLP > 3 Then
    Worksheets("Sheet1").Range("A123").Value = "PLINE"
    Worksheets("Sheet1").Range("B123").Value = (SPX + TSDLX + (4 * SLP) + (3 * TSPX)) & "," & (SPY + TSDBX + BPH + TSDMX)
    Worksheets("Sheet1").Range("C123").Value = (SPX + TSDLX + (4 * SLP) + (4 * TSPX)) & "," & (SPY + TSDBX + BPH + TSDMX)
    Worksheets("Sheet1").Range("D123").Value = (SPX + TSDLX + (4 * SLP) + (4 * TSPX)) & "," & (SPY + TSDBX + LDH)
    Worksheets("Sheet1").Range("E123").Value = (SPX + TSDLX + (4 * SLP) + (3 * TSPX)) & "," & (SPY + TSDBX + LDH)
    Worksheets("Sheet1").Range("F123").Value = "CLOSE"
    End If