Retreiving Email Address

1. Select Project==> Reference ==> Messenger Api Type Library
2.Now but this code into the form load and the other at the top

Private Sub Form_Load() Set objMessenger = New MessengerAPI.Messenger End Sub

Option Explicit Private WithEvents objMessenger As MessengerAPI.Messenger

3. Insert a text box and a command button
4. In the command button insert the following code and the current users logged in email address will be disblayed in text1.text

Text1.Text = MessengerAPI.Messenger.MySigninName