主题：关于将TextBox中内容分到集合中

 多扫了没有关系，最后处理的时候，把多余的去掉就行。

 如

Dim str As String = "123,456,789,123,789"
Dim ary() As String = str.Split(",")
Dim nstr As String = ""
For Each a As String In ary
    If ("," & nstr).Contains("," & a & ",") = False Then
        nstr &= a & ","
    End If
Next

msgbox(nstr.Trim(","))