WORD 2003, вставить в тексте после каждой десятой точки перенос строки

Sub TC1()
Dim TC&, i&
Application.Browser.Previous
With ActiveDocument
  For i = 1 To .Range.End - 1
    Selection.MoveRight Unit:=wdCharacter, Count:=1, Extend:=wdExtend
    If (Selection.Text) = "." Then TC = TC + 1
    If TC = 10 Then TC = 0: Selection.Text = "." & vbCrLf
    Selection.MoveRight Unit:=wdCharacter, Count:=1
  Next i
End With
End Sub

Sub Procedure_1()
 
    Dim lСчётчик As Long
    Dim lStart As Long
    
    'Здесь нужно указать, после какой по счёту точки нужно
    'вставить знак абзаца.
    Const lPeriodNumber As Long = 2
 
    lСчётчик = 1
    
    Do
        With ActiveDocument.Range(Start:=lStart, End:=ActiveDocument.Range.End).Find
            .Text = "."
            .Wrap = wdFindStop
            Do While .Execute = True
                If lСчётчик = lPeriodNumber Then
                    
                    .Parent.InsertParagraphAfter
                    lStart = .Parent.Start + 1
                    Exit Do
                    
                End If
                lСчётчик = lСчётчик + 1
            Loop
            If .Found = False Then
                Exit Do
            End If
        End With
        lСчётчик = 1
    Loop
 
    MsgBox "Работа завершена!", vbInformation
    
End Sub