Type Info:
EMail As String
Dim EMailAddress As String EMailAddress = Application.User.EMail MsgBox "You're E-Mail is " & EMailAddress