It's easier then I thought:
Set olns = Item.Application.GetNameSpace("MAPI")
Set MyFolder1 = olns.Folders("Public Folders")
Set MyFolder2 = MyFolder1.Folders("All Public Folders")
Set MyFolder3 = MyFolder2.Folders("payment")
Set MyItem = MyFolder3.Items.Add
'filling fields
MyItem.UserProperties("fCardType").Value =
Item.UserProperties("fCardType").Value
Thanks to all