Type Info:
Phone As String
Dim PhoneNumber As String PhoneNumber = Application.User.Phone MsgBox "You're phone number is " & PhoneNumber