macro to export cgm to users pictures folder

What does the code need to look like? Folder location would be C:\users\username\pictures\, how does it change for each individual user as the username changes.

Macro export CGM to user pictures folder

# recorded with Arbortext IsoDraw 7.3

  app.interaction=false

  Save

  Define final2 as string

    final2="X:\Photos\" + stripext(activedoc.name) + ".jpg"

    Export final2 "JPEG"

  app.interaction=true

  app.interaction=false

  Save

  Define final as string

    final="C:\users\username\pictures\" + stripext(activedoc.name) + ".cgm"

    Export final "cgm"

  app.interaction=true

End Macro

Thanks

Bryon