'MacroName:380AFto655bib

Sub Main

   Dim CS As Object
   Set CS = CreateObject("Connex.Client")

   dim genres$(9)
   
   CS.GetField "380", 1, tag$
   tag$ = mid(tag$, 6)
   pos% = instr(tag$, chr(223))

   x% = 0
   do
      if pos% > 0 then
         genres$(x%) = left(tag$, pos% - 2)
         tag$ = mid(tag$, pos% + 3)
      end if
      x% = x% + 1
      pos% = instr(tag$, chr(223))
   loop until pos% = 0
   
   CS.CloseRecord False
   
   for i% = 0 to x%
      CS.AddField i% + 1, "655 0" & genres$(i%)
   next
End Sub