Boucle imbriquée [Résolu]

Bonjour,
J'ai dans une base de donnes des numeros sous la forme 9999/001 et 999 (sans barre de fraction. Je souhaite trouver la position de la barre quand il y en une.
ma boucle :
dim x as number
dim prog as string
x=1
do
if isnumeric(left({T_EQUIPMENT.EREQ_CODE}, x)) then
x=x+1
else
formula = x
prog = "fin"
end if
loop while prog <> "fin"
cela marche quand il y uniquement des numéros avec barre de fraction mais plante ( nombre de boucle maxi dépassée) avec des numéros sans barre.
comment puis-je éviter ce pb ?
merci d'avance