'MacroName:CreateSpace

Sub Main

   Dim CS As Object
   Set CS = CreateObject("Connex.Client")
     
   CS.GetField "245", 1, SoR$
   pos% = instr(SoR$, chr(223) & "c")
   if pos% > 0 then
      SoR$ = mid(SoR$, pos% + 3)
      if right(SoR$, 1) = "." then SoR$ = left(SoR$, len(SoR$) - 1)
   else
      SoR$ = "Author's name"
   end if

   CS.AddField 1, "264 1[United States] : " & chr(223) & "b [" & SoR$ & "], " & chr(223) & "c [" & year(now) & "]"
   
   CS.GetFixedField "Type", MARCType$
   select case MARCType$
      case "a"
         CS.AddField 2, "264 3North Charleston, South Carolina : " & chr(223) & "b CreateSpace"
         ctry$ = "scu"
      case "g"
         CS.AddField 2, "264 3Lexington, Kentucky : " & chr(223) & "b Amazon.com"
         ctry$ = "kyu"
   end select      

   CS.GetFixedField "ELvl", Level$
   if Level$ like "[A-Z, 0-9]" then 
      'do nothing
   else
      CS.SetFixedField "ELvl", "3"  
   end if
   CS.SetFixedField "Desc", "i"
   CS.SetFixedField "DtSt", "s"
   CS.SetFixedField "Ctry", ctry$
   CS.SetFixedField "Dates", year(now)

end sub