Makros in Word 2003 funktionieren z.T. nicht mehr korrekt

[Omnicron]

Hallo, habe mir für meine Arbeit in Word einige Makros geschrieben. Nachdem unser Admin jetzt das ganz neue tolle Wort 2003 installiert hat, funktionieren aber einige Makros nicht mehr. Beispiel:

Sub Adjektive()

Const INPUT_TXT = "C:\Eigene Dateien\creative writing\adjektive2_2.txt"
Dim strWort As String
Dim objFso As Object
Dim objText As Object

Set objFso = CreateObject("Scripting.Filesystemobject")
Set objText = objFso.OpenTextFile(INPUT_TXT, 1, False)
Application.ScreenUpdating = False
With objText
Do While Not .AtEndOfStream
strWort = .ReadLine
RotHervorheben strWort
Loop
.Close
End With
Application.ScreenUpdating = True
Set objText = Nothing
Set objFso = Nothing
End Sub

Private Sub RotHervorheben(ByVal vstrText As String)
Selection.Find.ClearFormatting
With Selection.Find
.Text = vstrText
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = True
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
While Selection.Find.Execute
Selection.Range.HighlightColorIndex = wdRed
Wend

End Sub

Es soll also referenziert werden auf eine Liste, deren Inhalt verglichen werden mit dem vorliegenden Word-Dokument und entsprechende Wörter rot gekennzeichnet. Das hat bisher immer hervorragend geklappt. Jetzt aber nicht mehr, d.h. das Makro wird noch ausgeführt, aber das Blatt bleibt leer.

Aber: grundsätzlich zu funktionieren scheinen die Makros noch, wie z.B. mein Makro, welches doppelte Leerzeichen reduziert auf eines.

Könnt ihr mir sagen, was falsch läuft mit Word 2003?