Einlesen vom Benutzername

Hallo,
Ich habe ein Makro geschrieben um den benutzername einzulesen.
Wie kann ich den eingelesenen Benutzername in einem Dokument-Objekt eintragen

[u]Code:[/u]
Dim MyName
Sub MyuserName()
MyName = Environ(“UserName”)

End Sub

Vielen danke im Voraus
Gruß K