¿A qué te refieres exactamente con que corta los caracteres acentuados? Supongo que te referirás a que los caracteres con tilde no aparecen ¿no?
Esto puede ser problema del sistema de codificación que utilices al leer el archivo de texto. Por ejemplo, el objeto StreamReader por defecto utiliza el sistema UTF-8 y si quieres que aparezcan los caracteres con tilde has de usar el UTF-7.
Ahora no recuerdo muy bien la sintaxis, pero creo que al crear tu objeto StreamReader has de hacerlo así:
Dim objReader As StreamReader = New StreamReader("ruta_de_archivo", System.Text.Encoding.UTF7)
Creo que así me funcionó a mí. De todas formas,... aquí tienes un enlace:
http://msdn.microsoft.com/library/en...sctorTopic.asp
Un saludo.