Thank you so much. Your test was successful using your string sTm; however,
when I applied your code using my variables, for some reason it sets the tab
at 6.31", which does not accommodate the length of the variable with a margin
of 6.5". I am sorry to try your patience. Perhaps you would be kind enough to
look at my latest version and see if you spot something I am doing wrong. My
additions are indented. I never though this would be that difficult!  :O

       PatientName$ = "Smith, Joe"
       SSN$ = "555-55-5555"
       AttentionLine$ = "John Doe"
       DOE$ = "02/28/05"

Dim sTm As String ' temporary string
Dim sRM As Single ' right margin
Dim sLM As Single ' left margin
Dim sPW As Single ' page width
Dim sPs As Single ' position of tabstop
       Dim sLen As Single
       Dim sLen1 As Single
       Dim sLen2 As Single
       Dim sLen3 As Single
       Dim sLen4 As Single
       
       sLen1 = Len(PatientName$)
       sLen2 = Len(SSN$)
       sLen3 = Len(AttentionLine$)
       sLen4 = Len(DOE$)
       

       If sLen1 >= sLen2 And sLen1 >= sLen3 And sLen1 >= sLen4 Then sTm =
sLen1
       If sLen2 >= sLen1 And sLen2 >= sLen3 And sLen2 >= sLen4 Then sTm =
sLen2
       If sLen3 >= sLen1 And sLen3 >= sLen2 And sLen3 >= sLen4 Then sTm =
sLen3
       If sLen4 >= sLen1 And sLen4 >= sLen2 And sLen4 >= sLen3 Then sTm =
sLen4

With ActiveDocument.PageSetup
  sLM = .LeftMargin
  sRM = .RightMargin ' 72
  sPW = .PageWidth   ' 612
End With

sPs = sPW - (sLM + sRM)
'sTm = "To be or not to be"
' deduce from tab position on left margin
' the approximately lenght of the string
sPs = sPs - (Len(sTm)) * 6 - 2 ' corrective 2
Selection.Paragraphs(1).TabStops.Add _
Position:=sPs, _
Alignment:=wdAlignTabLeft

Julie