IS.... function for this one?

[kedaman]

Isnull, Isempty, isnumeric, isdate, ismissing.. is there any function that i can get if a reference val is set? I have tried if object=nothing then but get's "invalid use of object".

[Sam Finch]

What do you mean by a reference Val Being set?

[kedaman]

Dim a as blablaclass
Dim b as new blablaclass

If isnotset(a) then msgbox "a Is not set"
set a=b
If not isnotset(a) then msgbox "a Is set"

[Sam Finch]

I still don't get what you mean by is set, do you mean if the variable contains a class or not

Ie

Dim a as clsMyClass

IsSet (a)

returns false

and

Dim a as New clsMyClass

IsSet (a)

returns true

[kedaman]

I have a Temporar solution but I don't like it:

Function Isnotset(test) As Boolean
    On Error Resume Next
     temp = test
     If Err = 91 Then Isnotset = True
End Function

I don't know if it should work with all classes (what about those that have no default value)

[noone]

Isnt there an "isObject" function that might help?

[kedaman]

No, i've tried all Isblabla allready

[pardede]

Kedaman, you were on the right track in the first place, your problem is just the syntax (use the Is keyword instead of '='):
you use:

if object=nothing

you need:

If objYourObject Is Nothing

that's all

[Sam Finch]

Or
[code]
If CBool(ObjPtr(objMyObject))

Returns true iff object is set

[kedaman]

Thanks both of you