What is wrong with this code? When I click to execute this it says "Wrong number of arguements or invalid property assignments: myitem.save". I am trying to save to a public folder.

sub cmdSave_click()
set myOLApp = createobject("outlook.application")
set olns = myOlApp.getnamespace("MAPI")
set myfolder1 = olns.Folders("Public Folders")
set myfolder2 = myfolder1.Folders("All Public Folders")
set myfolder3 = myfolder2.Folders("Product Development Folders")
set myfolder4 = myfolder3.Folders("New Product Design Specifications")
set myitem = myfolder4.items.add("IPM.Note.NewProductDesign")
myitem.save application.getnamespace("MAPI").Folders("Public Folders") _
.Folders("All Public Folders").Folders("Product Development Folders") _
.Folders("New Product Design Specifications")
myitem.close
End sub