Objekt returværdi er null

Hej

Jeg har lidt problemer med lidt fejlhåndtering under VBA.
Jeg har følgende kode :

Set oFolder = oNs.GetSharedDefaultFolder(rec, olFolderCalendar)

oFolder kan retunere en tom værdi.  Dette kan jeg ikke finde udaf at håndtere i VBA. Jeg har prøvet med IsEmpty men det virker ikke.
Problemet er at den skal fortsætte med den næste i listen(rec) selvom den laver fejl da fejlen betyder at brugeren evt. ikke har givet adgang til kalenderen.