Copy BG_Subject path to user defined field for reporting

I have a requirement to populate reports with the BG_SUBJECT path name versus number. I thought the simplest method would be to copy the data from BG_SUBJECT to BG_USER_13. Not so easy.

My first attempt was to get the BG_SUBJECT data and copy to the BG_USER_13, which I was unable to do using

Bug_Fields.Field("BG_USER_13").Value = Bug_Fields.Field("BG_SUBJECT").Value

 with no success. Next I found the below and attempted to use it.

 dim objBugFact
  dim objBug

  set objBugFact = TDConnection.BugFactory
  set objBug = objBugFact.Item(Bug_Fields("BG_BUG_ID").Value)
  msgbox objBug.Field("BG_SUBJECT").Path

  Bug_Fields.Field("BG_USER_13").Value = objBug.Field("BG_SUBJECT").Value
  msgbox Bug_Fields.Field("BG_USER_13").Value

  set objBugFact = nothing
  set objBug = nothing

 the first msgbox displays the path, however the next msgbox shows nothing. I'm placing this code in Bug_AfterPost.

Any help would be appreciated.