    Private Function CreateChecksum(ByVal User As String) As Integer
      ' Cel  Ta procedura służy do tworzenia sumy kontrolnej dla hasła.
      '      Jest ona obliczana poprzez sumowanie wartości numerycznej 
      '      wszystkich znaków w nazwie użytkownika. Przechowywana 
      '      wartość jest resztą z dzielenia sumy przez 26.
      '
      ' Lista argumentów:
      '  User     Nazwa użytkownika dla tego hasła 
      '
      ' Wartość zwracana:
      '  integer    Suma kontrolna
      '
      Dim i As Integer, sum As Long

      sum = 0
      For i = 0 To Len(User) - 1
        sum += Asc(User.Substring(i, 1))
      Next i
      CreateChecksum = CInt(sum Mod 26)

    End Function
