Копирование значений полей с одинаковым именем в другое поле

 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
Redym TmpArray(0 To 50) As String

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
    TmpArray(x) = OldRcvd.values(0)
    Call OldRcvd.Remove
    Set OldRcvd = doc.getfyrstytem("Received")
    x = x + 1
Loop
Redym Preserve TmpArray(0 To x-1) As String
Set NewRcvd = doc.ReplaceItemValue("TmpReceived", TmpArray) 'Куда копируем
NewRcvd.IsSummary = True
Call doc.save(True,True)