Adding row labels by using LS

I have a script to create a dynamic table in a RichText field. I use 6 columns (static) and a dynamic number of rows. My thought was to use the following code (form the help file) to write the rownumbers into my first column.

When I test this code from a view it runs without errors. I trace the code line by line and can see that it gives me the correct number of rows.

However, I cannot find how to write those rownumbers into the cells in the first column. It does not write them anywhere.

What must I do ?

Dim rtt As NotesRichTextTable

Set rtt = rtnav.GetElement

Dim labels() As String

Redim labels(1 To rtt.RowCount)

For i = 1 To rtt.RowCount

labels(i) = "Pos " & i

Next

rtt.RowLabels = labels

Call doc.Save(True, True)