Müssen die Daten des Feldes irgendwo in einer Ansicht angezeigt werden?
Ansonsten würde ich entweder ein Richtextfeld verwenden, oder NotesItem.IsSummary = False setzen. Dann gehen wesentlich mehr Daten in das Feld.
Wenn das für Dich nicht praktikabel ist, dann errechne Dir doch die Länge Deines Arrays einfach immer selbst.
Jedesmal, bevor Du einen Array- Wert addierst addierst Du dessen Länge auf:
Dim lngLen as Long
lngLen = lngLen + Len( strToAddToArray )
if lngLen < 60000 then
array(i) = strToAddToArray
Else
'- neues Dokument? Neues Item? was auch immer....
lngLen = 0
End If