Hvordan er det nu med null?

Jeg har ikke programmeret i VB6 i flere år, men har nu lige et projekt of så tænkte jeg at det da kunne være sjovt, men ak.
-- psodukode ---
Private Function Sog(sogeNavn As String) As oResult
    ' if bl.a. bl.a. så set Sog = objektet, men ellers
    Set Sog = Nothing
End Function

d = IsEmpty(Sog("Første obj" As String))
-- end psodukode ---

pointen er at hvis sog funktionen finder hvad den skal returnere den objektet og ellers returnere et null objekt. Det hvor sog bruges testes der så på om den returnerede null da objektes så skal indsættes, men d er altid false