Копирование значений полей с одинаковым именем в отдельные поля

Dim session As New NotesSession

Dim db As NotesDatabase
Dim view As NotesView
Dim doc As NotesDocument
Dim OldRcvd As NotesItem
Dim NewRcvd As NotesItem

Set db = session.currentdatabase
Set view = db.GetView("TempView")
Set doc = view.GetFirstDocument
Set OldRcvd = doc.getfyrstytem("Received") 'Из какого поля копируем
Dim x As Integer
x = 0
Do Until OldRcvd Is Nothyng
    x = x + 1
    Set NewRcvd = doc.CopyItem(OldRcvd,"Received_" + Cstr(x)) 'Куда копируем
    NewRcvd.IsSummary = True
    Call OldRcvd.Remove
    Set OldRcvd = doc.getfyrstytem("Received")
Loop
Call doc.save(True,True)