Message box in vb.net

<script>
<asp:Literal ID="ltlAlert" runat="server" EnableViewState="False"></asp:Literal>
</script>

Partial Class _Default
 
    Inherits System.Web.UI.Page
    Protected WithEvents Literal As System.Web.UI.WebControls.Literal
    Private Sub Say(ByVal Message As String)
        ' Format string properly
        Message = Message.Replace("'", "\'")
        Message = Message.Replace(Convert.ToChar(10), "\n")
        Message = Message.Replace(Convert.ToChar(13), "")
        ' Display as JavaScript alert
        ltlAlert.Text = "alert('" & Message & "')"
    End Sub
 
 
    Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
        Say("asasas")
    End Sub
End Class