Идентичность слов в процентном соотношении - VB

Формулировка задачи:

Как можно проверить два слова на идентичность?? на совпадение их символов, процентов на 60..?

Решение задачи: «Идентичность слов в процентном соотношении»

textual
                            Листинг программы 
                        

                            option compare text
 
sub main()
  dim sl1 as string, sl2 as string, t as string
  sl1 = inputbox("Введите первое слово")
  sl2 = inputbox("Введите первое слово")
  t = sl2
  dim n as long, count as long
  for n = 1 to len (sl1)
    if instr(t, mid(sl1,n,1)) <> 0 then
      t = replace(t,mid(sl1,n,1),"",,1)
      count = count + 1
    end if
  next
  msgbox "Совпадение на " & count / len(sl1) * 100 & " %."
end sub
                        