Function najdi_rozdil(a, b)
najdi_rozdil = ""
Delka = Application.WorksheetFunction.Max(Len(a), Len(b))
For i = 1 To Delka
If Mid(a, i, 1) <> Mid(b, i, 1) Then najdi_rozdil = najdi_rozdil & Mid(b, i, 1)
Next i
End Functioncitovat
najdi_rozdil = ""
Delka = Application.WorksheetFunction.Max(Len(a), Len(b))
For i = 1 To Delka
If Mid(a, i, 1) <> Mid(b, i, 1) Then najdi_rozdil = najdi_rozdil & Mid(b, i, 1)
Next i
End Functioncitovat