IF - Then statement

[macropod]

Sub findend()
With Selection.Find
  .ClearFormatting
  .Replacement.ClearFormatting
  .Text = "[nm]>"
  .Replacement.Text = ""
  .Forward = True
  .Wrap = wdFindContinue
  .MatchWildcards = True
  .Execute
End With
If Selection.Find.Found = True Then
  Selection.Text = Chr(109.5 - ((Asc(Selection.Text) = 109) + 1) / 2)
End If
End Sub