My first suggestion would be to use one array, and fill it with a type that contains the values.
Type Row(A as float, B as float, C as float)
Dim Rows(6) as Row
Then you can write a quicksort to sort that array based on Rows(x).C.
The other, less elegant way, is simply to sort the C array, and whenever you move something in that array, you also move it in the other two arrays.