How to clear body during reply or reply all in outlook (VB.NET)?

I need to remove the body of the email when replying or reply all. However, body of original email should not be altered.

Private Sub m_objMail_ReplyAll(Response As Object, ByRef Cancel As Boolean) Handles m_objMail.ReplyAll

   Response.Body = String.Empty
   Response.HTMLBody = String.Empty
End Sub

I have tried both of the lines above. However, I notice that after email is sent, m_objMail's body is empty. The response object sends email without clearing the body.

Does anyone has any idea?

Thank you so much in advance.