NSolve[1 - Abs[x] Log[Abs[(1 + x)/x]] == 0.84, x]

FindRoot[1 - Abs[x] Log[Abs[(1 + x)/x]] - 0.84, {x, 0.01}]

{x -> 0.0537759}