(* yukterez.net *)

rs=2 G M (c^(-2));
gtt=1-rs/r-Λ (r^2)/3;

Λ=11056*^-56;
G=667384*^-16;
c=299792458;
Gyr=1*^9*365.25*24*3600;
Glyr=Gyr*c;

Mc=(c^2)/(3G(Sqrt[Λ])); rc=1/(Sqrt[Λ]); 
R:=r/.NSolve[gtt==0&&r>0,r]

Plot[{R/Glyr,   rs/Glyr},{M,0,5*^52},Frame->True,GridLines->{{Mc},{rc/Glyr}},ImageSize->400,ImagePadding->32]