lines = Cases[PlotV, Line[p_] :> p, Infinity] returns the xy-coordinate tables for all four lines.
lines[[1]] is the real part of function 1;lines[[2]] is the real part of function 2;lines[[3]] is the imaginary part of function 1;lines[[4]] is the imaginary part of function 2.
The actual values of σ will probably seem random, and determining which to keep and which to discard takes more work.
However, Table[{σ, f[σ]}, {σ, 0, 20000, 5000}], where f[σ] is the function expression, seems easier. Consider also Table[{σ, Re[f[σ]]}, {σ, 0, 20000, 5000}] and Table[{σ, Im[f[σ]]}, {σ, 0, 20000, 5000}], if you want the real and imaginary parts separately.
