It's easy to create a pst using this code:

Dim objOutlook, objNameSpace

Set objOutlook = CreateObject("Outlook.Application")
Set objNameSpace = objOutlook.GetNamespace("MAPI")
objNameSpace.AddStore pstfileName
Set objNameSpace = Nothing
Set objOutlook = Nothing

How I can set it's display name instead of it choosing the default
("Personal Folders") when creating it?