Non so se va... perlomeno è una base per ragionarci
codice:Dim s1 As String = "pippo pluto topolino" Dim s2 As String = "qui quo qua ziopaperone minnie topolino pippo clarabella orazio pluto" Dim par1() As String = Split(s1) Dim par2() As String = Split(s2) Dim trovate As Integer = 0 Dim indice As Double = 0.0 For i = 0 To par1.Length - 1 For k = 0 To par2.Length - 1 If par1(i) = par2(k) Then trovate += 1 exit for End If Next Next indice = (trovate / par1.Length) * 100