Invoke Code read Distribution List

Hi all. How do I incorporate this code into invoke code?

> Imports Outlook = Microsoft.Office.Interop.Outlook

> Private Sub GetDistributionListMembers()
>     Dim snd As Outlook.SelectNamesDialog = _
>         Application.Session.GetSelectNamesDialog()
>     Dim addrLists As Outlook.AddressLists = _
>         Application.Session.AddressLists
>     For Each addrList As Outlook.AddressList In addrLists
>         If addrList.Name = "All Groups" Then
>             snd.InitialAddressList = addrList
>             Exit For
>         End If
>     Next
>     snd.NumberOfRecipientSelectors = _
>         Outlook.OlRecipientSelectors.olShowTo
>     snd.ToLabel = "D/L"
>     snd.ShowOnlyInitialAddressList = True
>     snd.AllowMultipleSelection = False
>     snd.Display()
>     If (snd.Recipients.Count > 0) Then
>         Dim addrEntry As Outlook.AddressEntry = _
>             snd.Recipients(1).AddressEntry
>         If (addrEntry.AddressEntryUserType = _
>             Outlook.OlAddressEntryUserType. _
>             olExchangeDistributionListAddressEntry) Then
>             Dim exchDL As Outlook.ExchangeDistributionList = _
>                 addrEntry.GetExchangeDistributionList()
>             Dim addrEntries As Outlook.AddressEntries = _
>                 exchDL.GetExchangeDistributionListMembers()
>             If Not (addrEntries Is Nothing) Then
>                 For Each exchDLMember As _
>                     Outlook.AddressEntry In addrEntries
>                     Debug.WriteLine(exchDLMember.Name)
>                 Next
>             End If
>          End If
>     End If
> End Sub

Did you ever get this to work?