Application VisualBasic Script

Sub InspectTheEnvironment() 
    Debug.Print Application.UserName 
End Sub