Is My Object Valid?

Is My Object Valid?

Have you ever needed to determine if an object variable is holding a valid reference? TypeName() returns a class name if the object holds a valid reference. It returns the word “Nothing” if it does not:

 Public Function IsObjValid(objTest As Object) As Boolean	Dim vntResult As Variant	vntResult = TypeName(objTest)	If vntResult  "Nothing" Then _		IsObjValid = TrueEnd Function


Share the Post: