ok, fai così:
codice:
Private Sub Command2_Click()

        Set mioContatto = nuFldr.Items.Add         
        mioContatto.Email1Address = "ladyBlu@ladyBlu.it"
        mioContatto.FirstName = "ladyBlu"

        mioContatto.Save

End Sub

ciao...