Sub Main()
    Dim arlListe As New ArrayList
 
    ' Arraylist füllen
    Dim objDatensatz As New ClassDatensatz
    objDatensatz.DisplayName = "Peter Mueller"
    objDatensatz.PIN = 1234
    arlListe.Add(objDatensatz)
    '...usw....
    ' end of Arraylist füllen
 
    ' nun soll sortiert werden, wahlweise nach DisplayName oder PIN und 
    ' wahlweise aufsteigend oder absteigend. Am besten sogar in zwei Stufen: 
    ' zuerst nach Name, dann bei Namensgleichzeit nach Pin
 
    ' weiterverarbeitung der Arraylist
    For i as Integer to arlListe.count -1
 
        ' hier Code zur Weiterverarbeitung
 
    Next
 
End Sub

Public Class ClassDatensatz
    Private pDisplayName As String
    Public Property DisplayName() As String
        Get
            Return pDisplayName
        End Get
        Set(ByVal value As String)
            pDisplayName = value
        End Set
    End Property
    Private pPIN As Integer
    Public Property PIN() As Integer
        Get
            Return pPIN
        End Get
        Set(ByVal value As Integer)
            pPIN = value
        End Set
    End Property
End Class