Public Function ComparerTitelTextQuelle _
        (ByVal r1 As DataRow, ByVal r2 As DataRow) As Integer
 
        'Hierarchisches Sortieren (Binär)
        Dim ret As Integer
        'ASC
        ret = StrComp(r1("Titel").ToString, r2("Titel").ToString, _
                     CompareMethod.Binary)
        If ret = 0 Then
            'ASC
            ret = StrComp(r1("Text").ToString, r2("Text").ToString, _
                         CompareMethod.Binary)
            If ret = 0 Then
                'Desc
                ret = -1 * StrComp(r1("Quelle").ToString, _
                     r2("Quelle").ToString, CompareMethod.Binary)
            End If
        End If
 
        Return ret 
    End Function

    Dim byt As Byte = CByte(rndm.Next(48, 122))