If you meant to replace Z0
by 50
, then the command is
Z0*(1 + (-.3 + .4 I))/(1 - (-.3 + .4 I)) /. Z0 -> 50
(* 20.2703 + 21.6216 I *)
I do not know how to make Mathematica show step by step, but using Trace
can show some of the steps performed internally
ClearAll[Z0]
Trace[Z0*(1 + (-.3 + .4 I))/(1 - (-.3 + .4 I)) /. Z0 -> 50] // TableForm (*to make it easier to see*)