Removing blank lines based on first column

I want to delete any row which is "blank" in the first column. When I try this code, even though the Text show Null in debug, the If statement fails. Why?

 Dim Rng As Range, ix As Long
  Set Rng = Intersect(Range("A1:A367"), ActiveSheet.UsedRange)
  For ix = Rng.Count To 1 Step -1
      If IsNull(Rng.Item(ix).Text) Then
        Rng.Item(ix).EntireRow.Delete
      End If
  Next