IsNothing Function since I frequently forget it is not part of VB IsSomething functions

I frequently forget that for objects you must check (Object is Nothing) since there is no intrinsic function IsNothing. Forgetting something like this is especially true in the middle of the night.

So I decided to write my own as below. The reason I use error checking is because IsNothing(Nothing) must return true which it would not normally since Nothing is not an object.

'*********************************************************
'* Function: IsNothing
'* Arguments: Variant
'* Returns: True if argument is Nothing, otherwise False
'* Example: IsNothing(YourObject)
'*********************************************************
Public Function IsNothing(pvar As Variant)
On Error Resume Next 'Handle errors here
IsNothing = (pvar Is Nothing)
On Error GoTo 0 'Reset error handling
End Function