Дано натуральное число п. Проверить, будут ли все цифры числа различными. - VB

sub test
dim a(9)as long,i as long,s as string
s=inputbox("Введите число")
for i=1 to len(s)
  a(val(mid$(s,i,1)))=a(val(mid$(s,i,1)))+1
  if a(val(mid$(s,i,1)))>1 then msgbox "Есть повторы":exit sub
next
msgbox "Нет повторов"
end sub