Sorting an Array by Highest to Lowest [Excel 14, VBA Only]

I cannot figure out how to sort the remaining values. I repeated the sort but it give the highest value every time.

As a test I was using:
CPT_1 = 23410
CPT_2 = 23397
CPT_3 = 27060

Charges_1 = 7000.
Charges_2 = 15000.
Charges_3 = 4000.

FSValue_1 = 6939.45
FSValue_2 = 11244.51
FSValue_3 = 3524.78


I am using the following code.

Sub valueSortTest()

    '***SETTING VARIABLES***
    Dim readForm As Worksheet, cpt(1 To 3) As String, charges(1 To 3) As Double, fsValue(1 To 3) As Double
    Dim MaxSort(1 To 3, 1 To 3), x As Integer, sortValue(1 To 3, 1 To 3)
            
    '***IDENTIFYING WORKSHEET TO BE USED***
    Set readForm = ActiveWorkbook.Worksheets("Sheet1")
    
    '***READING DATA INTO AN ARRAY***
    For x = 1 To 3
        cpt(x) = readForm.Range("A" & x).Value
        charges(x) = readForm.Range("B" & x).Value
        fsValue(x) = readForm.Range("C" & x).Value
        sortValue(1, x) = cpt(x)
        sortValue(2, x) = charges(x)
        sortValue(3, x) = fsValue(x)
    Next x
    
     '***SORTING ARRRAY [FIRST TIME]***
    For x = 1 To 3
        If sortValue(3, x) > MaxSort(3, 1) Then
            MaxSort(1, 1) = sortValue(1, x)
            MaxSort(2, 1) = sortValue(2, x)
            MaxSort(3, 1) = sortValue(3, x)
        Else
        End If
    Next x

     
        '***PLACE SORTED VALUES INTO SPREADSHEET/FORM***
    For x = 1 To 3
        readForm.Range("E" & x).Value = MaxSort(1, x)
        readForm.Range("F" & x).Value = MaxSort(2, x)
        readForm.Range("G" & x).Value = MaxSort(3, x)
    Next x

End Sub