Saludos. Se lo que hace el código siguiente (mostrar el código unicode de cada caracter introducido) pero no entiendo del todo como lo hace, es decir, por que define esas constantes al inicio y por que al inicio del While se encuentra esa condición de (car > -1)... Supongo lo que hacen pero si alguien fuera tan amable de explicármelo claramente se los agradecería.

Gracias.

Imports System
Module Test
	Public Sub Main()
		Const CR As Integer = 13, LF As Integer = 10
		Dim car As Integer
 
		Console.WriteLine("Introduzca texto.")
		Console.WriteLine("Para terminar pulse Ctrl+z\n")
		car = Console.Read()
		While (car > -1)
			If (car <> CR And car <> LF) Then
				Console.WriteLine("El c&#243;digo Unicode de " & _
									Convert.ToChar(car) & " es " & car)
			End If
			car = Console.Read()
		End While
	End Sub
End Module