I found the following piece of code effective:
If str = vbNullString Then ...
IsError function:
If Not IsError(ActiveWorkSheet.Range("A1")) Then ...
A related VB issue is to check for a null value coming from a database query. In this case, you need to use the IsDBNull function