Class Human
  Dim Fields(1 To 3)
End Class

Sub Sort(ByRef Humans, FieldIndex)
...
result = Compare(Humans(i).Fields(FieldIndex), Humans(j).Fields(FieldIndex))
...
End Sub