Office: Fehler beim Komprimieren: Syntaxfehler

Moin alle mit einander,
ich hätte hier ein kleines Problem mit der Makroprogrammierung und komm nich weiter. Ich nutze eine Office 2007 Version und wollte ein Makro nutzen, das mich automatisch informiert wenn ich in Word eine gewisse Zeichenmenge überschritten habe. Dafür habe im Netz auch einige gute Ansätze gefunden, doch leider bekomme ich immer eine Fehlermeldung beim ausprobieren. Dabei handelt es sich um die oben genannte. Leider bin ich nicht gerade sehr firm mit der VBA-programmierung und wäre für eure Hilfe sehr dankbar.

Mit freundlichen Grüssen

Lt.Hawkeye

Hier der entsprechende Programmcode, bei der Fehlermeldung wird gleich die erste Zeile immer gelb markiert:

Sub ZeichenZaehlen()
Dim effW, effC, C As Variant
Dim maxW, maxC, W As Variant
Dim Wtxt, Ctxt As String
maxW = 5000 'Max Anzahl Worte
maxC = 1000 'Max Anzahl Zeichen
effW = ActiveDocument.BuiltInDocumentProperties(wdPropertyWords)
effC = ActiveDocument.BuiltInDocumentProperties(wdPropertyCharsWSpaces)
If maxW < effW Or maxC < effC Then
If maxW < effW Then
W = effW & &quot; (statt max &quot; & maxW & &quot;)&quot;
Else
W = effW
End If
If maxC < effC Then
C = effC & &quot; (statt max &quot; & maxC & &quot;)&quot;
Else
C = effC
End If
MsgBox &quot;ACHTUNG! Sie haben die maximale Anzahl Worte &quot; & _
&quot;bzw. Zeichen überschritten&quot; & Chr(13) & Chr(13) & _
&quot;Verwendete Anzahl WORTE: &quot; & W & Chr(13) & _
&quot;Verwendete Anzahl ZEICHEN: &quot; & C
Else
W = maxW - effW
C = maxC - effC
MsgBox &quot;* Maximale Anzahl WORTE: &quot; & maxW & Chr(13) & _
&quot;* Maximale Anzahl ZEICHEN: &quot; & maxC & Chr(13) & Chr(13) & _
&quot;* Verwendete Anzahl WORTE: &quot; & effW & Chr(13) & _
&quot;* Verwendete Anzahl ZEICHEN: &quot; & effC & Chr(13) & Chr(13) & _
&quot;Sie können noch &quot; & W & &quot; WORTE bzw. &quot; & C & &quot; ZEICHEN eingeben&quot;
End If
End Sub