Returns or sets the name of the current Microsoft Office user. Read\write String.
expression.CurrentUserName
expression    Required. An expression that returns a Global object.
This example displays a message box containing the name of the current Microsoft Office user.
MsgBox "The current Microsoft Office user is " & _
CurrentUserName