Get the logged in users email and manager

Hi    I need to get the currently logged in users email and manager. I have the username as per code below.   Sub GetLoggedInUserCredentials() 'Declare variables Dim strUserName As String Dim ...