¿Cómo mide VB.Net la longitud de una cadena que contiene caracteres chinos?

Repita cada carácter para ver si tiene el ancho completo o la mitad del ancho. El número total de caracteres de ancho medio es +1 y el número total de caracteres de ancho completo es +2.

Referencia:

¿Público? ¿Función? GetByteLength(¿ByVal? ¿valor? como? cadena)? ¿Como? Largo

¿Oscuro? ¿I? ¿Como? ¿dragón? =?0

¿Para qué? ¿Cada? ¿do? ¿Como? ¿Ciel? ¿existir? Valor

¿Si? (c.ToString().length?=?system.text.encoding.default.getbytecount(value.ToString()))? Entonces

¿yo? =?Yo? +?1

¿Fin? ¿Y si

yo? =?Yo? +?1

Entonces

¿Volver? Yo

¿Terminar? Función