Excel not reading blank lines

I have data in Excel which I imported from another program. The result is displaying the text in cells with 4 blank lines before the text, so in a single cell it would have something like this:

<Blank Line>
<Blank Line>
<Blank Line>
<Blank Line>
TEXT


My problem is my VBA code to remove these lines doesn't appear to be picking them up correctly:

Columns("A").Replace What:=Chr(10)&Chr(10)&Chr(10)&Chr(10), Replacement:="", _
'LookAt:=xlPart, SearchFormat:=False, ReplaceFormat:=False

It works when I look for the a single Chr(10) but not when there are 4 together, even though there are 4 blank lines together within the cell.

Can anyone help?

Thanks