Hola a todos/as!

Tengo un problema a traves del puerto serie estoy leyendo un micro, que normalmente se visualiza a través de una consola y estoy haciendo un programa que simula esta consola. El problema es que me manda la cadenas de información en ANSI. Me gustaria verlo en un text, 2 lineas de 16 bit cada una, y cortar los mensajes de ANSI ejemplo ESC,`[´,H quiere decir cursor a la posición principal, y después viene el mensaje que quiero visualizar.Estos mensajes que envía se que son para ordenar el texto, pero en visual basic no puede interpretar y ordenar ya estos mensajes?

Gracias, saludos.

Es mas sencillo que trates la cadena recibida y quites lo que sobre para mostrar luego en el textbox lo que te interesa. Pasanos un ejemplo de cadena que recibes y como quieres que salga.

yo resolvi una parte de los mensajes de esta forma:

Private Sub C1_OnComm()
Dim srx As String 'creación de una variable
Dim s1 As String
Dim vp As Long


Select Case C1.CommEvent 'configuración comunicación puerto serie
Case comEvReceive
Text1.Text = Text1.Text & C1.Input 'lo que se visualice en Text1 después de recivir dato "H", se leerán los próximos 34 carácteres
vp = InStr(1, Text1.Text, Chr(27) & "[" & "H", vbTextCompare)
If (vp <> 0 And Len(Text1.Text) >= 34 + vp) Then
Text2.Text = Mid(Text1.Text, vp + 3, 34)
Text1.Text = Mid(Text1.Text, vp + 3, Len(Text1.Text) - 34)
End If

Quedando el mensaje de esta forma:

LCB_II - Menu
System=1 Tools=2

pero el problema es cuando en otra cadenas me pide dejar el cursor en una posición concreta. Que como no me ocupa todos los bits de la pantalla y la trama de datos se refresca continuamente, no puedo estabilizar y cortar la trama.
Gracias por contestar.

Prueba a crear otra Sub que trate solo la informacion referente al cursor. Luego en funcion de la informacion recibida optas por una opcion u otra. No entendi muy bien (lo reconozco) el tipo de informacion que te llega por el puerto serie. ¿Puede pegar una cadena recibida para poder probar con tu codigo como lo trata?

ejemplos de cadenas recividas:
 LCB_II - Menu
System=1 Tools=2 LCB_II - Menu
System=1 Tools=2 LCB_II - Menu
System=1 Tools=2 LCB_II - Menu

La cual debe de quedar y queda con la programación escrita anteriormente en:

LCB_II - Menu
System=1 Tools=2

Pero el problema viene cuando tengo cadenas de este tipo:

I AD P AD P
> IO I AD P AD P
> IO I AD P AD P

Que se debería de poder visualizar :

I AD P AD P
>

 esto quiere decir que borre a partir del cursor la linea de abajo, pero no se como darle esa instrucción, hay más pero si me puedes ayudar con esta haber si me habre la mente para las próximas. Siempre en las cadenas se envia  para decir que el cursor se coloque en posicion principal. Es como trabaja el Ansi para colocar los datos enviados en una pantalla. Yo debo de simular una pantalla de 2 lineas de 16 bits cada una.
Gracias por dedicarme un poco de tu tiempo.

Prueba lo siguiente. Almacena todo la cadena ANSI que te llega en una sola variable. Luego trata la variable entera para borrar desde el  en adelante para eliminar lo que no te sirve. Para ello usas InStr para localizar la posicion en donde aparece  por primera vez. Algo Asi:

Código:

Posicion = InStr(1, CadenadeTexto, "")

Con esto obtienes la Posicion donde comienza la cadena . Luego eliminas con Mid lo que te sobra.

Código:

NuevaCadena = Mid(CadenadeTexto, 1, Posicion)

Con esto ultimo lo que haces es coger de CadenadeTexto desde el primer caracter hasta la posicion donde empieza la cadena . Con esto solo te quedaria lo que buscas realmente.

Gracias, por tu respuesta, algo mejor se me ve la cadena, si quisiese eliminar algo que esta en medio de la cadena recibida, como lo podría hacer