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