I have the following code
If Msg = vbYes Then Application.Dialogs(xlDialogSendMail).Show "Jo",
"Adjustment Form"

If Msg = vbNo Then ActiveWorkbook.SendMail Recipients:="Jo",
Subject:="Adjustment Form", ReturnReceipt:=Yes, StrBody:="test"
want to add textbody msg part of email