Public Function GetCurUserEmail(ByVal DomainObj As ActiveDs.IADsContainer, _
  ByVal TargetUserID As String) As String
           Dim User As ActiveDs.IADsUser
           Dim EmailAddress As String = ""
           Try
               If Not DomainObj Is Nothing Then
                   DomainObj.Filter = New Object() {"User"}
                   For Each User In DomainObj
                       Dim UserName As String
                       UserName = Replace(User.Name, "CN=", "")
                       If TargetUserID = UserName Then
                           EmailAddress = User.EmailAddress
                           Exit For
                       End If
                   Next
                   User = Nothing
                   DomainObj = Nothing
                   Return EmailAddress
               Else
                   Return Nothing
               End If
           Catch e As Exception
               ShowMsgBox (e.Message)
               Return Nothing
           End Try
       End Function