Dim Ro As Integer
Dim SortCol As Integer
Dim SortDate As Double

'// Addera en kolumn som skall hålla sorteringsnyckeln.
MsFlexGrid1.Cols = MsFlexGrid1.Cols +1
SortCol = MsFlexGrid1.Cols -1
MsFlexGrid1.ColWidth(SortCol) = 0 'Osynlig

'// Beräkna nyckelvärdet & sänd till kolumnen
For Ro = 1 To MsFlexGrid1.Rows -1
SortDate = DateValues(MsFlexGrid1.TextMatrix(Ro, 2))
MsFlexGrid1.TextMatrix(Ro, SortCol) = SortDate
Next Ro

'// Utför sorteringen nu
MsFlexGrid1.Col = SortCol 'Sätter nyckeln
MsFlexGrid1.Sort = flexSortNumericAscending