Найти все 4-ёх значные числа, в записи которых нет одинаковых цифр - VB

for n1=1 to 9
  for n2=0 to 9
    for n3=0 to 9
      for n4=0 to 9
        if n1<>n2 and n1<>n3 and n1<>n4 then
          if n2<>n3 and n2<>n4 then
            if n3<>n4 then print n1 & n2 & n3 & n4
          end if
        end if
      next n4
    next n3
  next n2
next n1