'MacroName:idiot
'MacroDescription:Complete idiot's guide
'written by John Lavalie, July 17, 2007

option explicit

Sub Main

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

   dim tag$, pos%
   
   CS.GetField "245", 1, tag$
   pos% = instr(tag$, "omplete idiot's guide to ")
   if pos% > 0 then
      tag$ = mid(tag$, 36)
      tag$ = ucase(left(tag$, 1)) & mid(tag$, 2)
      pos% = instr(tag$, chr(223))
      if pos% > 0 then tag$ = left(tag$, pos% - 1)
      tag$ = trim(tag$)
      if right$(tag$, 1) like "[A-Z, a-z, 0-9]" then 
      else
         tag$ = left(tag$, len(tag$)-1)
         tag$ = trim(tag$)
      end if
      
      CS.AddField 1, "24630Complete idiot's guide"
      CS.AddField 2, "24630" & tag$

   end if
End Sub