O così:
codice:
Dim msg As String = "Ciao"
Response.Write("<script language=javascript>alert('" & msg & "');</script>")

Oppure utilizzando questa classe ed il suo metodo Alert:
codice:
Public Class JavaScript
    Public Shared Sub Alert(ByRef Pagina As System.Web.UI.Page, ByVal Messaggio As String)
        Dim js As String = "alert(""" & Messaggio & """);"
        If (Not Pagina.ClientScript.IsStartupScriptRegistered("messagebox")) Then
            Pagina.ClientScript.RegisterStartupScript(Pagina.GetType, "messagebox", js, True)
        End If
    End Sub
End Class
In questo modo, nella tua pagina (nel codice):
codice:
JavaScript.Alert(Me, "TuoMessaggio") ' Attento ai messaggi con l'apice
Mi sa che metteremo una di queste discussioni in rilievo... :master: