'MacroName:082travel
'MacroDescription:add travel call no. from table 2

Sub Main

   Dim CS As Object
   Set CS = CreateObject("Connex.Client")
   
   CS.GetField "082", 1, tag082$
   
   tag082$ = left(tag082$, 5) & "91" & mid(tag082$, 10, 1) & "." & mid(tag082$, 11) & " " & chr(223) & "2 22"
   CS.DeleteField "082", 1
   CS.SetField 1, tag082$   

End Sub