added GetUserFirstName.bas