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