Moving message from exchange to pst

See more:

VB

VB15

I'm trying to process an exchange mailbox and export some of its items to a PST file.

I'm adding a pst store and a new subfolder:

For Each i As Outlook.Store In NSpace.Stores
           If i.FilePath = FileName Then
               PstRoot = i.GetRootFolder

and then:

subfolder = PstRoot.Folders.Add(folderName)

I'm fetching the items from the exchange server (direct connection to it):

Public exch_glob As New Microsoft.Exchange.WebServices.Data.ExchangeService()
....
....
....
itemList_Glob = exch_glob.FindItems(ExchFldrID, BigitemView)

For Each i As Item In itemList_Glob

These parts are working fine.
BUT
I'm unable to move a message from the exchange to this PST.

Any help will be appreciated!

What I have tried:

I did try all kind of syntaxes like

i.move(subfolder) 

and many others, but something is just not right. :(