Visual Basic

Class myClass

private ID as String
private Name as String
private TK as String
private Di as String
private M as String

End Class

Private colClass As Collection
Private clsTheClass As myClass


Set colClass = New Collection
    
    Set clsTheClass = New myClass
    clsTheClass.Name = "A"
    clsTheClass.TKs = "100"
    clsTheClass.Di = "5"
    clsTheClass.ID = "1"
    clsTheClass.M = "9"

    colClass.Add clsTheClass

ID  |Name   |TK     |Di    |M
1    A       100     5      9
2    B       100     3      9
3    C       10      5      9
4    D       10      7      9
5    E       10      1      9
6    F       400     9      5
7    F       400     4      5

ID	|Name	|TK	|Di	|M
6	 F	 400	 9	 5
7	 F	 400	 4	 5
1	 A	 100	 5	 9
2	 B	 100	 3	 9
4	 D	 10	 7	 9
3	 C	 10	 5	 9
5	 E	 10	 1	 9

Public Sub SortCollection(ColVar As Collection)
    Dim oCol As Collection
    Dim i As Integer
    Dim i2 As Integer
    Dim iBefore As Integer
    
    If Not (ColVar Is Nothing) Then
    
        If ColVar.Count > 0 Then
        
            Set oCol = New Collection
            
            For i = 1 To ColVar.Count
            
                If oCol.Count = 0 Then
                    oCol.Add ColVar(i)
                Else
                    iBefore = 0
                    
                    For i2 = oCol.Count To 1 Step -1
                    
                        If CLng(ColVar(i).TK) < CLng(oCol(i2).TK) Then
                            iBefore = i2
                        Else
                            Exit For
                        End If
                        
                    Next
                    
                    If iBefore = 0 Then
                        oCol.Add ColVar(i)
                    Else
                        oCol.Add ColVar(i), , iBefore
                    End If
                    
                End If
                
            Next

	    'WE now have it sorted by TK in Asc order so we need to reverse it

            
            'Reverse the collection
            Dim MyNewCol As New Collection
            Dim obj As Object
            For Each obj In oCol
                If MyNewCol.Count > 0 Then
                    MyNewCol.Add Item:=obj, before:=1
                Else
                    MyNewCol.Add Item:=obj
                End If
            Next
            
            Set ColVar = MyNewCol
            Set oCol = Nothing
            
        End If
        
    End If
    
End Sub