Word 2000: negierte Variablen darstellen

Sub SelectionErsetzenDurchFormelMitNegationszeichen()
'Der selektierte Text erhält einen Negatiosüberstrich
'Enthält der selektierte Text am Ende Leerzeichen,
'werden diese Leerzeichen nicht mit überstrichen.
'(Dies ist z.B. relevant, wenn man ein Wort anklickt,
'da dann das nachfolgende Leerzeichen mit selektiert wird.)
'
'Negatitionszeichen (Alt + 0175) wird mittels Formeleditor gesetzt
'
'Ein ggf. nachfolgendes Leerzeichen wird gelöscht,
'da die Darstellung des Formeleditors am Ende ein
'Leerzeichen hinzufügt.

 Dim lVersion As Long, strFormel As String, lLng As Long
 
 lVersion = Left(Application.Version, 1)
 If lVersion = 8 Then
  strFormel = FORMEL ->Version Excel97
 ElseIf lVersion > 8 Then
  strFormel = EQ   ->Version höher als Excel97
 Else
  MsgBox Makro nicht für Version  & lVersion &  vorgesehen.
  Exit Sub
 End If
 
->Prüfen, ob überhaupt etwas selektiert ist
 If Trim(Selection.Text) =  Then
  MsgBox Nichts selektiert.
  Exit Sub
 End If
 
->Prüfen, ob am rechten rand der Selektion ein LeerZeichen ist
->ggf. Selektion um Leerzeichen verkürzen
 
 Do
  If Right(Selection.Text, 1) =   Then
   Selection.MoveRight Unit:=wdCharacter, Count:=-1, Extend:=wdExtend
  Else
   Exit Do
  End If
 Loop While Len(Selection.Text) > 1
 
 
->Feld mit überstrichenem Text einfügen
 Selection.Fields.Add Range:=Selection.Range, _
  Type:=wdFieldEmpty, _
  Text:=strFormel &  \O( & Selection.Text & ; & String(Len(Selection.Text), ¯) & ) , _
  PreserveFormatting:=False
 
->Da die Darstellung jetzt noch ein Leerzeichen enthält,
->ggf. nachfolgendes Leerzeichen entfernen
 Selection.MoveRight Unit:=wdCharacter, Count:=1, Extend:=wdExtend
 If Selection.Text =   Then Selection.Text = 
 
End Sub