You probably need to modify the code as follows
Sub GetContactsFolder()

Dim olNS As Outlook.NameSpace
Dim olStore As Outlook.Store
Dim olContactFolder As Outlook.MAPIFolder
Dim olFolder As Outlook.MAPIFolder
Dim olContact As Object
Dim iContact As Integer


    Set olNS = Application.GetNamespace("MAPI")
    Set olContactFolder = olNS.GetDefaultFolder(olFolderContacts)
    For Each olFolder In olContactFolder.folders
        'Debug.Print olFolder.Name
        If olFolder.Name = "Private PST account" Then
            For Each olContact In olFolder.Items
                If TypeName(olContact) = "DistListItem" Then
Debug.Print olContact.DLName
                Else
Debug.Print olContact.FullName
                End If
            Next olContact
            Exit For
        End If
    Next olFolder
    Set olNS = Nothing
    Set olContactFolder = Nothing
    Set olFolder = Nothing
    Set olContact = Nothing
End Sub