NetPVal = NPV(RetRate, Values()) Msg = "The net present value " & _ "of these cash flows is " Msg = Msg & Format(NetPVal, Fmt) & "." ' Display net present value. MsgBox Msg