Sorting Using For Loop In Visual Basic