Module Module1 Sub Main Dim 88 75 Dim newArray As New List Of Integer

Module Module1

    Sub Main()
        Dim a = {{5, 6, 88, 1, 75},
                 {3, 7, 7, 1, 1},
                 {3, 5, 7, 1, 1},
                 {3, 7, 7, 1, 1},
                 {3, 7, 7, 1, 1}}
        Dim newArray As New List(Of Integer)
        Dim result
        For y = 0 To 4
            For x = 0 To 4
                newArray.Add(a(x, y))
            Next
        Next
        newArray.Sort()
        result = newArray.ToArray
    End Sub

End Module