Public Sub comp(ByVal s1 As String,ByVal s2 As String )
If s1 <> s2
Dim Value1s() As String
Dim Value2s() As String
Value1s = s1.split(",")
Value2s = s2.split(",")
For Index As Integer = 0 To Value1s.Length - 1
If Value1s(Index) <> Value2s(Index)
s1 = Value1s(Index)
s2 = Value2s(Index)
MessageBox.Show(s1 & " " & s2)
End If
Next
End Sub