Hi,
I changed the code a bit as follows. But its still not getting numerically solved. please help
EqVaVo=Import["..../HDEqVaVo.csv"];
(* EqVaVo[[1,1]]=48885.7 and EqVaVo[[1,2]]8.752*^-6 *)
r=0.1035;
T=1.0;
Debt=37100.0;
d1=(Log[VA/EqVaVo[[1,1]]]+(r+sigA^2/2)*T)/(sigA*Sqrt[T]);
d2=(Log[VA/EqVaVo[[1,1]]]+(r-sigA^2/2)*T)/(sigA*Sqrt[T]);
pdf = PDF[NormalDistribution[0, 1], \[Xi]];
F=Integrate[pdf, {\[Xi], -Infinity, d1}]
G=Integrate[pdf, {\[Xi], -Infinity, d2}]
NSolve[{VA*F==Debt*Exp[-r*T]*G,EqVaVo[[1,1]]*EqVaVo[[1,2]]== VA*F*sigA}, {VA,sigA}]