Hi Sergio I think I know where you want to go with this. I'm sure there are more elegant ways to achieve this but this is what I do to extract results for further use. If we set the calculation like this

p = Solve[0.1333*H*H/(95*95 + H*H) - k*(Nesp*Ix - H*lm) == 0, H, 
  Reals]; p = FromDigits[H /. p]

the variable p is now your new result, thus

167.894

we can now use this in the follow up

(0.133*p^2)/(95^2 + p^2)

giving this 0.100745

Hope this helps a little

Paul.

You can also remove the warning messages by using equivalent fractions instead of the decimals, for instance use 2/15 instead of 0.1333333. Use Rationalize[0.1333333333] to do that for you. All instances of decimal must be removed before the message disappears.

Paul