Ando medio perdido en esta parte, estoy haciendo un cliente irc en VB y me he topado con el problema de que alguien escriba texto en color. Sé que el formato es un caracter de control (^C) más el numero del color de texto, una coma, y el numero del color de fondo. El problema es que no se como hacer la condición para detectar el carácter de control usando InStr o un Replace.

Más info sobre los caracteres de control: http://es.wikipedia.org/wiki/Car%C3%A1cter_de_control

Sólo tengo este pedazo de código que no me funciona:

If InStr(Texto, "") > 0 Then
    Texto = Replace(Texto, "", "")
End If

En eso estaba pensando pero no se cúal es el valor ascii del ^C (no creo que sea Chr(3) o si?)

If InStr(Texto, Chr(3)) > 0 Then
    Texto = Replace(Texto, Chr(3), "")
End If

No funciona.

Texto es una variable que recoge lo que recibo en el winsock y si es un mensaje al canal pues lo limpio y solo dejo "<nick> mensaje", luego viene ese codigo que pongo. Lo que hago para probar es desde el mirc mandar un texto coloreado, pero en el cliente en vb sigo recibiendo ese caracter, puedo poner el caracter cuantas veces quiera pero el código no se deshace de él:

Las rayas que te salen en negrita son lineas

Texto = Replace(Texto, Chr(10), "")
o
Texto = Replace(Texto, Chr(10), vbNewLine)

Saludos