Outlook VBA: Reply to All as Text

I am a messaging old-timer, going back to the days of PINE and ELM and RBBSMail.  I like to reply to message like this:

>You said
I reply.

Actually the old days the mail client did it by initials so it looked like this:

YS>You said
AK>I reply.

I get a lot of HTML mail, which I see a a waste of storage. I reply as text with the the following code:

Sub ReplyAsText()
    Dim rply As Outlook.MailItem
    Dim item As Outlook.MailItem
    Dim retval As Integer
   
    Set item = GetCurrentItem()
    item.BodyFormat = olFormatPlain
   
    retval = MsgBox("Reply to all as text? No is just sender.", _
    vbYesNoCancel + vbQuestion + vbSystemModal, _
    "Reply to All?")
   
    If retval = vbCancel Then Exit Sub
   
    If retval = vbYes Then
        Set rply = item.ReplyAll
    Else
        Set rply = item.Reply
    End If
   
    rply.Display

    item.Close olDiscard

    Set rply = Nothing
    Set item = Nothing
End Sub