Dim jaggedArray As String()() = {

                         New String() {"A1", "B1", "C1", "D1"},

                         New String() {"A2", "B2", "C2", "D2"},

                         New String() {"A3", "B3", "C1", "D3"},

                         New String() {"A4", "B4", "C1", "D4"},

                         New String() {"A5", "B5", "C5", "D5"},

                         New String() {"A6", "B6", "C2", "D6"}

                    }

Array.Sort(jaggedArray, Function(x, y) String.Compare(x(2), y(2)))

For Each items In jaggedArray

    Console.WriteLine(String.Join(",", items))

Next