VBA XML private sub aa(){ dim a as integer {