[vb6] creare cartella nei contatti di outlook

[GudFella]

devo creare una cartella nuFldr
nella cartella Contatti di Outlook
il codice che uso è il seguente:

Set olApp = New Outlook.Application
Set olNS = olApp.GetNamespace("MAPI")
Set Fldr = olNS.GetDefaultFolder(olFolderContacts)
Set nuFldr = Fldr.Folders.Add("nuFldr")

l'ultima riga provoca un errore di automazione
"err.num -2897564526.... impossibile creare la cartella"

sto sbagliando qualcosa di banale o devo dare fuoco al computer?

grazie per ogni suggerimento

[GudFella]

Risolto!! (... il pc è salvo)

visto che dopo alcune modifiche non so esattamente
che errore ho corretto
posto il codice esatto

Dim olApp As Outlook.Application
Dim olNS As Outlook.NameSpace
Dim nuFldr As Outlook.MAPIFolder
Dim societa As Outlook.MAPIFolder

Set olApp = New Outlook.Application
Set olNS = olApp.GetNamespace("MAPI")
Set nuFldr = olNS.GetDefaultFolder(olFolderContacts)
Set societa = nuFldr.Folders.Add("Società")