How to iterate SOQL join query results in Excel Macro

Could you please provide an example how to iterate the join queries in VBA
Dim qr As QueryResultSet4
qr = g_sfApi.Query("select name,( select id from contacts ) from account ",false)

qr is always null even though data is there, could you please help to fix the issue.

Thanks