prova con

If xlBook.Worksheets(1).Cells(1, 1).value <> "" Then

oppure

If xlBook.Worksheets(1).Cells(1, 1).text <> "" Then

oppure altro, non so, vado a orecchio