Дан ряд m чисел. Определить количество чисел m в которых есть повторяющиеся цифры. - VB

m=INPUTBOX("BBEDITE M")
DIM a(m)
  FOR i = 1 TO m
a(i)=INPUTBOX("BBEDITE A(" & i &")")
 
  NEXT i
   FOR i = 1 TO m
    c = a(i)
    k = 0
     DO
      k = k + 1
      b(k) = c MOD 10
      c = c \ 10
     LOOP UNTIL c = 0
 FOR j = 1 TO k
  FOR L = 1 TO k
   IF (j <> L) AND (b(j) = b(L)) THEN kol = kol + 1
  NEXT L
 NEXT j
   NEXT i
 msgbox kol