Multiple NotesDateRange's in a multivalue field

Anyone has a sample for adding/appending NotesDateRange’s in script to a multivalue date-field. ?I need to have dates and dateranges in a single date/list field.

I can set the first entry with

Dim dates As Variant

Dim dateRange As NotesDateRange

Set dateRange = session.CreateDateRange()

Dim dateTime1 As New NotesDateTime(doc.StartDate(0))

Dim dateTime2 As New NotesDateTime(doc.EndDate(0))

Set dates = dateRange

Call doc.ReplaceItemValue( “MyDateListField”, dates )

but when trying ArrayAppend to the field it gets either

blank, if I use GetItemValueDateTimeArray,

or a strange mix of dates if I use GetITemValue of the

stuff to append to.

(the field ends up with 3 separate date values: start and end date from the first range and a date of 1899-12-30)

I can add several ranges from the gui, separating them with commas, so I know it’s possible to mix several dates/dateranges in a single field.