You need to use an intermediate node that you evaluate using Resolved,
something like this:
    -- Functionality Working Variables...
    variable node      : std_logic ;
    variable out_zd    : std_logic ;
  begin
    -- Functionality...
    node := Resolved(('H', in_ipd));
    out_zd := VitalBUF(node);
    -- Path Delays
    VitalPathDelay01 ( 
		      OutSignal => out,
		      OutSignalName => "out",
		      OutTemp => out_zd,
                      Mode => PathDelayMode,
		      Paths => (
                       0 => (in_ipd'last_event, tpd_in_out, TRUE)
	                                ),
                      GlitchData => out_GlitchData);
Hope this helps.
Martin.
----------------------------------------------------------------------
-- Martin Gregory <mgregory@asc.sps.mot.com>          |    _--_|\ 
-- Program Manager, Modelling & Cosimulation Program  |   / MASC \ 
-- Motorola Australia Software Centre                 |   \_.-*._/
-- Phone: +61 8 8203 3612, Fax: +61 8 8203 3501       |         v
----------------------------------------------------------------------