'// Die Klasse:
Public Class MyComparer
    Implements IComparer
    Private _ByColumn As DataColumn
    Public Sub New(ByVal SortByColumn As DataColumn)
        Me._ByColumn = SortByColumn
    End Sub
    Public Function Compare(ByVal x As Object, ByVal y As Object) As Integer _
      Implements System.Collections.IComparer.Compare
        Dim r1 As DataRow = DirectCast(x, DataRow)
        Dim r2 As DataRow = DirectCast(y, DataRow)
        If Not (Me._ByColumn.DataType Is GetType(String) AndAlso _
          Me._ByColumn.DataType Is GetType(String)) Then
            If CType(r1(Me._ByColumn), Integer) < CType(r2(Me._ByColumn), _
            Integer) Then Return -1
            If CType(r1(Me._ByColumn), Integer) > CType(r2(Me._ByColumn), _
            Integer) Then Return 1
        Else
            Return String.Compare(CType(r1(Me._ByColumn), String), CType(r1( _
              Me._ByColumn), String))
        End If
        Return 0
    End Function
End Class

        Dim arr As New ArrayList
        Dim dt As New DataTable
        Dim r As DataRow
        Dim SortByColumn As DataColumn
        dt.Columns.Add(New DataColumn("Column1", GetType(Integer)))
        dt.Columns.Add(New DataColumn("Column2", GetType(String)))
        For a As Integer = 0 To 10
            r = dt.NewRow
            r(0) = New Random(a).Next()
            r(1) = ChrW(New Random(a).Next(50, 70))
            dt.Rows.Add(r)
            arr.Add(r)
        Next
        SortByColumn = dt.Columns(1)
        arr.Sort(New MyComparer(SortByColumn))
        For Each r In arr
            Debug.WriteLine(r(SortByColumn).ToString)
        Next
    End Sub