sort property of outlook contacts not working

[TM]

I was able to find the code to list the name and email from the contacts in
Outlook 2003, but the sort property is not working.

Here is my sample code. For now I am just adding an item to a listbox with
the fileas name so I can see what is going on. Any idea why the sort is not
working to sort the contacts by FileAs name ?
Dim OutlookApp As New Outlook.Application
Dim OLNameSpace As Outlook.NameSpace
OLNameSpace = OutlookApp.GetNamespace("MAPI")
Dim allContacts As Outlook.MAPIFolder =
OLNameSpace.GetDefaultFolder(Outlook.OlDefaultFold ers.olFolderContacts)

allContacts.Items.Sort("FileAs")
Dim contact As Outlook.ContactItem
Dim cnt As Integer

lblNumberContacts.Text = "Total Contacts: " & allContacts.Items.Count
lstContacts.Items.Clear()
For cnt = 1 To allContacts.Items.Count
contact = allContacts.Items.Item(cnt)
lstContacts.Items.Add(contact.FileAs & " " &
contact.Email1Address)
Next

'cleanup
OutlookApp = Nothing
OLNameSpace = Nothing

Thanks all
--
Tony