Sorting Values - Procedure Showing Wrong Output?

Just sorting a value and displaying them with original values. Procedure is displaying the sorted values in msgbox but in place of the original values, it displays the original values again.

Public Sub FlagProb2()
Dim Count() As Integer = {2, 1, 4, 3} 'Original Array
Dim SortedCount() As Integer = Count 'New array for sorted values of original array
Array.Sort(SortedCount) 'Sorting values
For j As Integer = 0 To Count.GetUpperBound(0)
MsgBox(SortedCount(j) & " , " & Count(j)) ' Displaying sorted and unsorted values
Next
End Sub