如题:如何将输入到第一文本框中的内容转移到第二个文本框中并校验是否有重复,如果有重复的就不加入到第二文本框
比如第一次文本框中输入123 ，第二个文本框就会显示123 ，然后第一个文本框清空
    第二次在第一个文本框中输入234,第二个文本框就会显示123,234    ,然后第一个文本框清空, 自动在第二个输入前加逗号
    第三次在第一个文本框中输入234,第二个文本框就会显示错误信息，234不会被加入到第二个文本框中

请问这个怎么做以下是我的代码，但怎么都去不了校验后的重复项,第一个框就是scan.text 第二个框是sn.text
Private Sub scan_LostFocus()

If scan.Text = "" Then Exit Sub 'keeps from doing anything if there is no scan

If sn.Text = "" Then
     sn.Text = scan.Text


 Else: sn.Text = sn.Text & "," & scan.Text  '& Chr(13) + Chr(10)
    ' Exit Sub
   
    Dim ii As Integer
    Dim Ccount As Integer
    Ccount = 1

If InStr(sn.Text, scan.Text & ",") > 0 Then MsgBox "Duplicate SN,please delete it and then re-scan"

For ii = 1 To Len(sn.Text)
If Mid(sn.Text, ii, 1) = "," Then Ccount = Ccount + 1
Next ii
cou.Text = Ccount

End If
      
      scan.Text = ""
      scan.SetFocus ' sets the cursor back to the smaller box to scan the next SN

End Sub

有没有实际的代码注解一下，我是初学者，不知道怎么去写校验后如果是相同的字符就过滤。现在不同的是可以输入进去，相同的我也做到校验会弹出消息框，但问题是校验后相同的字符还是会加进去，所以有没有高手看看怎么搞法谢谢

谢谢你帮我解决了问题，还有一个问题就是你可以看见我代码里有个计数器，但我这个程序第一次输入的时候是从2开始的，能否指点一下怎么从1开始计数当每输入一个正确的字符的时候。谢谢

计数的问题刚刚自己解决了，但我想在错误时提示信息，这个我不知道加到哪里去
 if instr(1,s,"," & scan.Text & ",") >0 then  Msgbox"wrong number" 如果加到这里的话系统会报错