Ordenar Matriz

[u_goldman]

Código:

	'Funcion para ordenar arreglo, metodo de la burbuja
	Function OrdenaArreglo(arreglo)
		Dim x, y, temp
		If isArray(arreglo) Then
			'Dim temp
			For x = 0 to uBound(arreglo)
				For y = x + 1 to uBound(arreglo)		
					If arreglo(x, 0) > arreglo(y, 0) Then
						temp = arreglo(x, 0)
						temp2 = arreglo(x, 1)
						arreglo(x, 0) = arreglo(y, 0)
						arreglo(x, 1) = arreglo(y, 1)
						arreglo(y, 0) = temp
						arreglo(y, 1) = temp2
					End If
				Next
			Next
		Else
			OrdenaArreglo = Null
		End If
		OrdenaArreglo = arreglo
	End Function

Aqui hay una funcion que ordena un arreglo bidimensional de 2 columnas, solo querras modificar el numero de estas columnas.

Salu2,