How do you get the current access level of a user?

Dim s As New notessession
Dim db As notesdatabase

Set db = s.CurrentDatabase
Set level% = db.CurrentAccessLevel

This will return a value ranging from 0 to 6 (0 = No Access, 6 = Manager, all other levels in between).