I do this from my local drive, no network.
I have added the reference 'Micosoft outlook 9.0 object library' to the project and I'm using following code:

Private Sub cmdShow_Click()

On Error Resume Next
Dim i As Integer
With lstEmails
For i = 0 To .ListCount - 1
If .Selected(i) Then
MsgBox .ListIndex(i)
End If
Next
End With

End Sub

Private Sub Form_Load()

'Get the outlook instance:

Dim moMail As Object
Dim loNameSpace As Object
Dim loNameAddresses As Object
Dim loAddresses As Object
Dim loAddressList As Object

Set moMail = New Outlook.Application
Dim moAddresses As Outlook.AddressLists

Set loNameSpace = moMail.GetNamespace("MAPI")
Set loAddresses = loNameSpace.AddressLists("Contacts")
Set loAddressList = loAddresses.AddressEntries


'Add -> lstEmails:
lstEmails.Clear
For i = 1 To loAddressList.Count
lstEmails.AddItem loAddressList.Item(i).Address
Next i

End Sub