Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

    Dim mycode As String
    mycode = "<my_htmlcode>"

End Sub