Extracting Code And View In Textbox

In this project I am doing I need to be able to extract the code behind button1 and view it in a textbox.

If button 1 had the following code behind it

MsgBox("This Is A Messagebox", 48, "Warning!")

When the button was clicked it would view the message box saying this is a message box I want button2 to view that code in a textbox So that the textbox has inside when the button is clicked,

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
MsgBox("This Is A Messagebox", 48, "Warning!")
End Sub