Kaprekar vb.net

Alors voila je doit faire un programme qui dit que si le nombre est kaprekar ou pas j'ai fait l'algo :

Nbrchoisi,devincarré,nbrobtenu sont des nombre entier
Vérifi est une booléen


Deviencarre = (nbrchoisi)*(nbrchoisi)


Pour que i = 0 à longeur de devincarré -1
Verifi = f
Additionné les nombre iéme de devincarré = nbrobtenu
Si nbrobtenu = nbrchoisi alors verifi = v
Affiché nbrobtenu

Fin du si
Fin du pour


Mon problème c'est le fait additionner le 1er nombre avec le 2éme, le 3éme avec le 4éme, le 1,2,3éme avec le reste du nombre je te serait grandement reconnaissent si tu arriverais a me débloquer de cette énigme.

En gros je c'est pas quoi mettre dans cette boucle :

For i = 0 To Len(deviencarre) - 1



Next

Cordialement