class a
dim p1, p2
end class
class b
dim f1, f2
end class
Y supongamos que tenemos una funcion que nos develve una u otra segun se tercie

La pregunta es ¿Como comprobamos cual nos devuelve?
Hasta ahora yo lo hago asi:
on error resume next
set r = funcionquehacecosas()
check = r.p1
check = err <> 0
err.clear()
on error goto 0
¿Existe alguna manera mas elegante/efectiva/mejor de hacerlo?

Gracias miles a aquellos que disipen mis dudas
Un saludo
SOLUCIONADO
Usando TypeName:
if TypeName(r) = "a" then
' ....
elseif TypeName(r) = "b" then
' .....
end if
Un saludo
