Public Function VerSnils(snilstxt As String, v As Boolean)
     Dim i%, j%, ms$
     Dim kt$, s$
     Dim t
     t = Trim(snilstxt): kt = Right(t, 2)
     Do While InStr(1, t, "-") > 0
         t = Replace(t, "-", "")
     Loop
     t = (Mid(t, 1, 9))
     Do While InStr(1, t, " ") > 0
         t = Replace(t, " ", "")
     Loop
     t = Val(t)
     For i = 1 To 9
         j = j + (10 - i) * (t \ (10 ^ (9 - i)) Mod 10)
     Next i
     Select Case j
         Case 100, 101: s = "00"
         Case Is > 101: s = CStr(j Mod 101)
         Case Else: s = CStr(j)
     End Select
     If v Then
         VerSnils = CBool(IIf(kt = s, 1, 0))
     Else
         VerSnils = s
     End If
End Function