Hi Keith,

You might be able to use something like the following:

''' declare variables
Dim iTab As Integer
Dim iPos As Integer
Dim iLeader As Integer

With Selection.Paragraphs(1)
   For iTab = .TabStops.Count To 1 Step -1
       If .TabStops(iTab).CustomTab Then
           With .TabStops(iTab)
               ''' retain current tab settings
               iLeader = .Leader
               iPos = .Position
               iAlign = .Alignment
               ''' clear the tab
               .Clear
           End With
           ''' move the position of the tab and apply
           ''' the tab settings
           .TabStops.Add _
               Position:=iPos + InchesToPoints(0.2), _
               Alignment:=iAlign, _
               Leader:=iLeader
       End If
   Next iTab
End With

HTH,
Dave