Estimados, ¿Cómo permutar en 4 celdas números del 1 al 4 en Visual Basic?

Necesito que en 4 celdas me permute todas las posibilidades de 1 hasta 4. Lo que pasa es que al cambiar (o permutar estos valores), mas abajo me varia una sumaproducto. Entonces lo que estoy tratando de realizar es: Primero que permute los números (1 al 4) en estas 4 celdas de manera que en cada permutación ir guardando los datos en un vector para luego elegir el minino.
Necesito realizar y entender bien esto para después escalarlo.
muchas gracias