How do I get the current logged in Active Directory username from VBA?

Question

I am new to Active Directory.

I have a VBA Excel Add-In that should run if, and only if, the computer that it is running on is currently logged into the Active Directory

Answer 1

This function returns full name of logged user:

Function UserNameOffice() As String
    UserNameOffice = Application.UserName
End Function