Without actually writing the code for you, look at:
First, vary cntR from 1 to the number of resources in your project. Within that loop, vary cntA from 1 to the number of assignments for that resource.
For cntR = 1 to Activeproject.resources.count
For cntA = 1 to activeproject.resources(cntR).assignments.count
debug.print activeproject.resources(cntR).assignments(cntA).taskid
Next
Next