HI, I TRY THIS SORT, SEE THE OUTPUT AT END
THE RECORD #15 AND 16 NOT IN ORDER, THANKS FOR YOUR HELP
200103=caso1
01167=falta1
"A" or "I"=status1
For Loop1 = 0 To total
pos = Loop1
For loop2 = Loop1 + 1 To total
If caso1(loop2) = caso1(pos) And status1(loop2) < status1(pos) Then
pos = loop2...