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à")