vb输入一个数，当有重复数字提示，如何编写

问题不够详细。
输入一个数，跟1个数比较，还是跟100个数比较？
数保存在哪里？数组？text1.text中？还是数据库
什么都没说，只能给你这样写代码
if val(text1.text)=a then msgbox "输入数据有错"

还是指输入123没问题，输入121因为1重复了，就是重复数字？
dim i as integer,spl() as string
for i = 0 to 9
spl=split(text1.text ,i)
if ubound(spl)>1 then msgbox "输入数据有错！" :exit for
next

findstr做