ASP.NET - Crear funcion para todas las paginas

Protected Sub Mensaje(ByVal mensaje As String)

        Dim ScriptString As StringBuilder

        ScriptString = New StringBuilder("<script language='JavaScript'>")

        ScriptString.Append("alert('" + mensaje + "');")

        ScriptString.Append("</script>")

        Page.ClientScript.RegisterClientScriptBlock(Me.GetType, "PopupScript", ScriptString.ToString())

End Sub