CustomFieldValueList

Is there an expert, who can help me?
I trie to read a customfield-valuelist. But I cannot count the number of items in this list (n in this example). Or is there a method, that does not give an error if n is higher than the actual number?
If I delete or add an item, I notice the whole list is recreated.

Example:
If (CustomFieldGetName(pjCustomTaskText2)) <> "" Then
Cells(2, 1) = "Text2"
Cells(2, 2) = (CustomFieldGetName(pjCustomTaskText2))
For i = 1 To n
MsgBox (CustomFieldValueListGetItem(pjCustomTaskText2, pjValueListValue, i))
MsgBox (CustomFieldValueListGetItem(pjCustomTaskText2, pjValueListDescription, i))
Next i
End If

Regards
Hannes de Bruyne