Public Structure myDaten
        Implements IComparer(Of mydaten)
        Public idx As Integer
        Public SpalteA As String
        Public SpalteB As String
        Public SpalteC As String
        Public SpalteD As String
        Public SpalteE As String
        Public SpalteF As String
        Public SpalteG As String
 
Public Function Compare(ByVal x As myDaten, ByVal y As myDaten) As Integer _
  Implements System.Collections.Generic.IComparer(Of myDaten).Compare
            Dim c1 As Integer = x.SpalteA.CompareTo(y.SpalteA) 
            If c1 <> 0 Then Return c1 
            Dim d1 As Integer = x.SpalteB.CompareTo(y.spalteB) 
            If d1 <> 0 Then Return d1
            Return x.SpalteC.CompareTo(y.SpalteC) 
 
 Public Sub New(ByVal a As Integer, b As String, c As String, d As String, e As _
   String, f As String, g As String, h As String)
            Me.idx = a
            Me.SpalteA = b
            Me.SpalteB = c
            Me.SpalteC = d
            Me.SpalteD = e
            Me.SpalteE = f
            Me.SpalteF = g
            Me.SpalteG = h
        End Sub
    End Structure
End Function