Range.Reset(); WHILE (diRune := myRange.GetNext [...] Segment := myBuilder.GetNext [...] Rune:=myRange.GetNext