private p_Argumento as Variant
private get property Argumento as Variant ' si lo que hay almacenado es un objeto la devolución 1ª falla y se produce el 'reintento'
on local error goto Reintenta
Argumento= p_Argumento
exit property
Reintenta:
set Argumento = p_Argumento
end property
private let property Argumento(byref ag as Variant) ' espera un tipo de datos común, pero si se recibe un objeto, incurre en error y es reasignado desde el 'reintento'.
on local error goto Reintenta
p_Argumento= ag
exit property
Reintenta:
set p_Argumento = ag
end property
private set property Argumento(byref ag as Variant) ' se espera un objeto pero si no se recibe, hará un 'reintento'...
on local error goto Reintenta
set p_Argumento= ag
exit property
Reintenta:
p_Argumento = ag
end property