C'è qualcuno che potrebbe darmi una mano con questo codice suguente?

---------------------------------------------------------------------<%@ Page Language="VB" %>
<script runat="server">

dim strName as String="Andrea"
dim MyArray() as String={"Ciao","Mondo"}
dim MyString as string="Mario"

sub page_Load(obj as object, e as eventargs)
Page.DataBind()

end sub

sub submit_click(obj as object, e as eventargs)
if text1.TextChanged then
lblmessage.DataBind()
end if
end sub

</script>
<html>
<head>
</head>
<body>
<form runat="server">
My Name's <%#strName.ToString%>



<asp:ListBox id="ListBox1" runat="server" datasource="<%#MyArray%>"></asp:ListBox>
</p>



<asp:TextBox id="text1" runat="server" text="<%#MyString.ToString%>"></asp:TextBox>
<asp:button id="invio" onclick="submit_Click" runat="server"></asp:button>
<asp:Label id="lblmessage" runat="server"></asp:Label>
</p>
</form>
</body>
</html>
---------------------------------------------------------------------

Hocopiato tutto da un libro ma per la seconda volta ho trovato un errore di pubblicazione e l'esercizio non mi torna.

L'errore che mi da è questo:

---------------------------------------------------------------------

Errore di compilazione
Descrizione: Si è verificato un errore durante la compilazione di una risorsa necessaria per soddisfare la richiesta. Verificare i dettagli dell'errore specifico riportati di seguito e modificare il codice sorgente in modo appropriato.

Messaggio di errore del compilatore: BC32022: "Public Event TextChanged(sender As Object, e As System.EventArgs)" è un evento e non può essere chiamato direttamente. Utilizzare un'istruzione "RaiseEvent" per generare un evento.

Errore nel codice sorgente:



Riga 12:
Riga 13: sub submit_click(obj as object, e as eventargs)
Riga 14: if text1.TextChanged then
Riga 15: lblmessage.DataBind()
Riga 16: end if

---------------------------------------------------------------------

La riga 14 genera un errore chi sa aiutarmi e spiegarmi cortesemente perchè?
grazie ciao ciao