Function n(str0 As String, str1 As String) As Long
Dim Arr0, Arr1
Dim i As Long
Dim m As Long
Arr0 = Split(str0, "-")
Arr1 = Split(str1, "-")
m = 0
For i = 0 To 5
If Arr1(i) <> Arr0(i) Then
Exit For
End If
m = m + 1
Next
Select Case m
Case 6
m = 2 + (Arr1(6) = Arr0(6))
Case 5
m = 4 + (Arr1(6) = Arr0(6))
Case 4
m = 5 + (Arr1(6) = Arr0(6))
Case 3
m = 5 + (Arr1(6) <> Arr0(6)) * 5
Case 0, 1, 2
m = 6 + (Arr1(6) <> Arr0(6)) * 6
End Select
n = m
End Function