Volevo fare pratica con l'oggetto XmlTexReader ed allora....

codice:
<%@ Page Language="VB" %>
<%@ Import NameSpace="System.Xml" %>

<Script runat="server">
Sub Page_Load(Obj as Object, E as Eventargs)
	Dim myReader as XmlTextReader
	Dim i, j as integer
	i = 0
	Dim MyArr(i) as string
	try
		myReader = new XmlTextReader(Server.MapPath ("TuoFile.xml"))
		while myReader.Read()
			Select Case myReader.NodeType
				Case XmlNodeType.Text
				MyArr(i) = MyReader.Value.ToString
				i = i + 1
				Redim Preserve myArr(i)
			End Select
		End While
	catch Ex as Exception
	'qui gestisci l'errore
	'non so per quale motivo ma un errore c'è ma non ti da problemi...
	finally
		myReader.Close
	End try
	
	'verifichi il funzionamento
	For j = 0 to i
	Response.Write(myArr(j) & "
")
	next
	
End Sub
</Script>
Spero che ti vada bene...