Index.SortBy (Word)

Returns or sets the sorting criteria for the specified index. Possible return values are wdIndexSortByStroke - Sort by the number of strokes in a character, wdIndexSortBySyllable - Sort phonetically.

ActiveDocument.Indexes(1).SortBy = _ 
 wdIndexSortByStroke