The following example retrieves the UserInfo object, and then displays the current company’s name in a message box.
Dim UserInfoObj As UserInfo Dim CompanyName As String 'Get the UserInfo object Set UserInfoObj = VbaGlobal.UserInfoGet() 'Retrieve and display the company name CompanyName = UserInfoObj.CompanyName MsgBox CompanyName