'MacroName:010Fix
'MacroDescription: change bad 010 starting with bl

Sub Main

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

   CS.GetField "010", 1, tag010$
   if tag010$ > "" then
      tag010$ = mid(tag010$, 6)
      if left(tag010$, 2) = "bl" then 
         tag010$ = mid(tag010$, 3)
         CS.SetField 1, "010    " & tag010$
      end if
   end if
   
End Sub