参考
Dim str As String = "1,2,4,5,2,4,6,7,5"Dim ls As new List(Of String)For Each s As String In str.split(",") If ls.Contains(s) = False Then ls.add(s)Nextstr = String.Join(",", ls.ToArray)msgbox(str)