Macro ANSI Tabelle - Schriftzeichen in Word auslesen und anzeigen lassen 2003 (vorgefertigte alte Version)

Hallo zusammen

Wer kann mir bei der scriptschreibung behilflich sein ?
Ich brauche dies für die Word Version Prof. Edition 2003 SP3
Wenn ich dieses script einfüge erkennt er die Kommandos nicht wie Markierung erweitern.
Da ich eigentlich nichts mit Macros schreiben am Hut habe mache ich evtl auch was falsch.
In VB kopiere ich den Text hinein aber erhalte nach dem start schon die Fehlermeldung
Compile Error " Sub or Function not defined"

Wer könnte mir kurz helfen dies richtig ins Word zu implementieren, danke.

Sub MAIN()

MarkierungErweitern

Rem schaltet den Markierungsmodus ein

ZeichRechts 1

Rem erweitert die Markierung um ein Zeichen nach rechts

a$ = Markierung$()

Rem die Markierung wird der Variablen a$ übergeben

Dim Schrift As FormatZeichen

GetCurValues Schrift

c$ = Schrift.Schriftart

Rem die Schriftart wird ausgelesen

Abbrechen

Rem der Markierungsmodus wird ausgeschaltet

ZeichLinks 1

Rem die Markierung wird zurückgesetzt, d. h., der Cursor befindet sich wieder an der ursprünglichen Position

z = Asc(a$)

Rem der ANSI-CODE des Zeichens wird bestimmt

b$ = Str$(z)

Rem die Zahl wird in einen String verwandelt

MsgBox "ANSI-Code = " + b$, c$

Rem Ausgabe des Ergebnisses in einer Messagebox

End Sub