Funcion global para mostrar mensaje error

[SekaiNew]

Hola pues debes crear una clase nueva agreas el codigo ahi

Public Sub MessageBoxJS(ByVal mensaje As String, pagina As Page)
mensaje = mensaje.Replace("'", "\'")
mensaje = mensaje.Replace("""", "\" & """"c)
Dim scriptString As New StringBuilder("<script language=JavaScript>")
scriptString.Append("alert('" & mensaje & "');")
scriptString.Append("</script>")
pagina.ClientScript.RegisterClientScriptBlock(pagi na.GetType(), "PopupScript", scriptString.ToString())
End Sub

Y paso posterior te vas a tu webform y pones lo siguiente:

Dim objmensajes as New CLASE_MENSAJES
objmensajes.MessageBoxJS(mensaje_a_mostrar, me)

CLASE_MENSAJES= es el nombre de la clase que creaste y donde pusiste tu funcion.

Saludos.