Private Function IsNothing(ByRef obj) As Boolean
  If (TypeName(obj) =  "Nothing" ) Then
    IsNothing = True
  Else
    IsNothing = False
  End If
End Function