VBA Code to expand a hierarchy BEX 7.2

Hi,

does anybody know the right VBA coding to expand a hierarchy in a BEx Workbook to a certain level dynamically using the BexAnalyzer.xla API? This could be done easily in 3.5 version using following coding:

Run "SAPBEX.XLA!SAPBEXfireCommand", "HX03", Range("C12")

The command HX03 sets the hierarchy expansion depth to 3 levels.

Thanks for any hint,

Marek