# NSolve connot solve my equation

I’m trying to solve $$\left(\frac{hc}{k_B} – 5x\right)e^{hc/k_Bx} + 5x = 0,$$ where $$h = 6.626 \times 10^{-34}$$, $$k = 1.381 \times 10^{-23}$$ and $$c = 3 \times 10^8$$. My code is

h = 6.626*^-34; k = 1.381*^-23; c = 3*^8; NSolve[((h c)/k - 5 x) Exp[(h c)/k x] + 5 x == 0, x] 

but Mathematica doesn’t solve the equation, am I doing something wrong?