Response ASP.Net

<%@ Page Language="vb" %>

   
      Sending status in ASP.NET
      
         Sub Page_Load()
            Response.StatusCode = 542
            Response.StatusDescription = "Server Error - The code is the answer."
            Response.End()
         End Sub