Returns the NameSpace and uses the CurrentUser property to display the name of the current user in a message box:
Sub current() MsgBox Application.GetNamespace("MAPI").CurrentUser End Sub