Buenas, estoy haciendo una aplicación en la que quiero que después de un nombre, tenga una parte coloreada tal que así:
Pepe dice: Hola
Pepa dice: Hola
Lo separo en dos vectores, uno para el nombre y uno para el mensaje. El que quiero ver coloreado es el del mensaje.
Hago ésto pero solo se colorea la primera vez, y segun recibe mensajes los colores se cambian de sitio:
Pepe dice: Hola
Pepa dice: Hola

If Mid(datos, 1, 3) = "MSG" Then 'Cuando recibo es MSGmensaje
    mensaje = Split(Mid(datos, 4, Len(datos)), ":") 
    Text1.Text = Text1.Text & mensaje(0) & ":" & mensaje(1) & vbNewLine 'nombre dice: mensaje
 
    lennombre = Len(mensaje(0)) 'tamano del nombre
    lenmensaje = Len(mensaje(1)) 'tamano del mensaje
 
    With Text1 'creo que falla aqui
        .SelStart = lennombre 'selecciono desde donde acaba el nombre
        .SelLength = lenmensaje 'hasta que acaba el mensaje
        .SelColor = vbBlue 'se supone que tiene que colorearlo todas las veces que quiera
        .SelBold = True
    End With
 
End If

¿Sugerencias?
Saludos.

Gracias por la respuesta.
El "dice: " viene en el vector(0).
El servidor envia Nombre dice: Hola, cuando el cliente lo recibe hace un split separado por ":", entonces, para que se vea hago mensaje(0) & ":" & mensaje(1), de forma que sale Nombre dice: Hola. He probado como me has dicho y no sale ningún color.

Vale, creo que he hecho lo que me has dicho, y ahora sale coloreado siempre el ultimo mensaje, es decir, digo Hola y se ve azul, pero vuelvo a decir Hola, el anterior se pone negro y el nuevo azul.

mensaje = Split(Mid(datos, 4, Len(datos)), ":")
    Text1.Text = Text1.Text & mensaje(0) & ":" 'Agrego el texto principal X dice:"
 
    lentext = Len(Text1.Text) 'Guardo en una variable el len(text1)
 
    Text1.Text = Text1.Text & mensaje(1) & vbNewLine 'Agrego el mensaje en si
 
    Text1.SelStart = lentext 'Pongo en el SelStart la variable anterior
    Text1.SelLength = Len(Text1.Text) ' mal aqui?
    Text1.SelColor = vbBlue
    Text1.SelBold = True

También he probado y nada
Sale así:

Siempre se colorea el ultimo mensaje.

Qué va, no hay nada de eso. ¿Cómo coloreo todo?