Hola... ahora mismo no lo puedo probar, pero ¿has intentado algo así?
Código:
Private Sub Mensaje_Emergente()
Response.Write("<script language=""JavaScript"">")
Response.Write("window.alert(" & TextBox1.Text & ");")
Response.Write("</script>")
End Sub
No si es eso lo que buscabas
Saludos de Phoncadiz.