IF - Then statement

[asad]

Hi guys,
First, I would like to tell you that this example is not for English but for Arabic
This code I want to do the following:
- Search once at each hotkey press
- If the word is finished with a letter M delete the letter and write instead letter N.
- If the word ends with a letter N, delete the letter and write instead a letter M.
I do not know well using the IF - Then statement
Please help me

Sub findend()
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "[nm]>"
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
        .MatchWildcards = True
    Selection.Find.Execute
    With Selection
         If Selection.Find.Found = n Then
           Selection.TypeText Text:=m
     Else
      If Selection.Find.Found = m Then
            Selection.TypeText Text:=n


End If
End Sub

Any help would be greatly appreciated.

[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