Confrontare i caratteri di due stringhe

Il caso è quello in cui, avendo due stringhe di eguale lunghezza di carratteri, vogliamo verificare quali e quanti caratteri sono eventualmente diversi all'interno delle predette stringhe.

Potremo procedere utilizzando la funzione Mid(...):

Public Sub Button1_Click()

 Dim s, ss, diversi As String
 Dim j, a As Byte

  s = "abc0101"
  ss = "abd0111"

  For j = 1 To Len(s)
    If Mid(s, j, 1) <> Mid(ss, j, 1) Then
      Inc a
      diversi = diversi & " " & Mid(ss, j, 1)
    Endif
  Next
 
   Print "I caratteri diversi sono:"; diversi
   Print "per un totale di "; a & " caratteri."

End