主题：找出两个字符串的差异

Dim str As String = "1,2,1,1,1,1,1,1,3,53,53,53,53,53,5,5,56,7,530"

For Each s As String In "1,2,1,1,1,1,1,1,3,53,53,53,53,53,5,5,56,7".Split(",")

    Dim i As Integer = Array.IndexOf(str.Split(","),s)

    If i > - 1 Then

        str = str.Remove(i,s.Length)

    End If    

Next

MessageBox.Show(str.Replace(",",""))