Public Function AddNewUser(ByVal User As String, _
                ByVal Pass As String, ByVal SecurityLevel As Integer) _
                As Integer
      ' Cel: Ta funkcja służy do dodawania nowego użytkownika do systemu. 
      '      Ten kod sprawdza długość hasła oraz czy nazwa jest już 
      '	   na liście. Jeśli obydwa warunki nie są 
      '      spełnione, zwracane jest logiczne False.
      '
      ' Lista argumentów:
      '  User          Nazwa użytkownika
      '  Pass          Łańcuch, który zawiera hasło
      '  SecurityLevel Uprawnienia użytkownika
      '
      ' Zwracana wartość:
      '  integer     -1 jeśli jest OK; 0 w pozostałych przypadkach
      '
      Dim i As Integer


      ' Sprawdź, czy długość hasła jest OK
      If Pass.Length < MINLENGTH OrElse Pass.Length > MAXLENGTH Then
        Return 0
      End If

      ' Sprawdź poziom uprawnień 
      If SecurityLevel < MINSECURITY OrElse SecurityLevel > MAXSECURITY Then
        Return 0
      End If

      ' Sprawdź, czy nazwa nie jest używana.
      For i = 0 To mUserCount - 1
        If UCase(mUserList(i).User) = UCase(User) Then
          Return 0
        End If
      Next

      mUserCount += 1      ' Dodaj do listy

      If mUserCount >= mUserList.GetUpperBound(0) Then ' Sprawdź, czy trzeba 
        ReDim Preserve mUserList(mUserCount + 10)      ' powiększyć listę
                                                       ' użytkowników.
      End If

      ' Jeśli tu jesteśmy, można dodać:
      With mUserList(mUserCount)
        .User = User
        .Pass = Pass
        .SecurityLevel = SecurityLevel
      End With

      Return -1        ' Wszystko jest dobrze

    End Function
