Hi Jay,

Seeing that there are so many ways of entering a telephone number, my client
decided that we just look for all occurences of the area code and then taking
the area code plus the next 10 characters following the area code. I'm able
to find the occurences but can't get the 10 characters that follow.

Right now (after each find) I just pull out the entire sentence and I
Split() it into an array and simply pull out the element that contains the
area code. But the problem is that the Split() function sometimes places the
area code alone into one element because there can be a space after the area
code.

Here's my code:

       For Each rngStory In objDocument.StoryRanges
           With rngStory.Find
               .ClearFormatting
               .Text = "514"
               .Wrap = wdFindStop
               .Forward = True
           End With
           Do Until rngStory.Find.Execute = False
               With rngStory.Duplicate
                   .Expand Unit:=wdSentence
                   myArray = Split(.Text, " ", -1, vbTextCompare)
                   For i = 0 To UBound(myArray)
                       If InStr(1, myArray(i), "514", vbTextCompare) <> 0
Then
                           If numTelFound < 3 Then
                               myWorksheet.Range("Y") &
intCurrentLine).Formula = myArray(i)
                           End If
                       End If
                   Next i
               End With
           Loop
       Next rngStory

Now my client wants me to just find the occurences and pull out the 10
characters that follow, including the area code. How do I do that?

Thanks,