Программа для поиска в документе Word

Public a, i, ind As Integer
Public num_sim
Public bool As Boolean
 
Private Sub CommandButton1_Click()
 If Len(TextBoxFind.Text) = 0 Then
  fin = False
  MsgBox "Укажите условие поиска"
 Else
  ind = 0
  If Not bool Then
   i = 0
   num_sim = Len(ActiveDocument.Range.Text)
   a = ActiveWindow.ActivePane.View.SeekView + 1
   bool = True
  End If
  fin = True
 End If
 While fin
  With Selection.Find
     .Replacement.ClearFormatting
     .ClearFormatting
     .Text = TextBoxFind.Text
     .Forward = True
     .Wrap = wdFindStop
     .Format = False
     .MatchCase = CheckBoxReg.Value
     .MatchWholeWord = False
     .MatchWildcards = False
     .MatchSoundsLike = False
     .MatchAllWordForms = False
     .Execute
   If .Found Then
    fin = False
   Else
    Call GoShapes
    Call GoDoc
    If ind > 12 Then
     ActiveWindow.ActivePane.View.SeekView = 0
     ActiveDocument.Paragraphs(1).Range.Select
     Selection.MoveLeft Unit:=wdCharacter, Count:=1
     MsgBox "Не нашел"
     fin = False
    End If
   End If
  End With
 Wend
End Sub
 
Private Sub GoShapes()
 If a = -1 Then
  i = i + 1
  ActiveWindow.ActivePane.View.SeekView = 0
  If i <= ActiveDocument.Shapes.Count Then
   ActiveDocument.Shapes.Range(Array(i)).Select
  Else
   i = 0
   a = 0
   ActiveDocument.Paragraphs(1).Range.Select
   Selection.MoveLeft Unit:=wdCharacter, Count:=num_sim
  End If
 End If
End Sub
 
Private Sub GoDoc()
 If a <> -1 Then
  On Error Resume Next
  b = True
  While b
   If a = 12 Then
    If ActiveDocument.Shapes.Count > 0 Then
     a = -1
     b = False
     Call GoShapes
    Else
     a = 0
    End If
   Else
    ActiveWindow.ActivePane.View.SeekView = a
    If ActiveWindow.ActivePane.View.SeekView = a Then
     b = False
    End If
    a = a + 1
    ind = ind + 1
   End If
  Wend
 End If
End Sub