'MacroName:546
'MacroDescription:add 546 & 655

Sub Main

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

   CS.AddField 1, "546  Closed-captioned."
   CS.AddField 99, "655 0Video recordings for the hearing impaired." 

End Sub