How to find exact match in a word macro

[macropod]

Try:

Dim dsMain As MailMergeDataSource, numRecord As Long, Ticker As String
Ticker = InputBox("Enter the Ticker:")
With ActiveDocument.MailMerge.DataSource
  Do While .FindRecord(FindText:=Ticker, Field:="Ticker") = True
    If .DataFields("Ticker") = Ticker Then
      numRecord = .ActiveRecord
      Exit Do
    End If
  Loop
End With
MsgBox numRecord