Option Explicit
 
Enum eTextColor
 
    Black = 0
    Blue = 1
    Green = 2
    Cyan = 3
    Red = 4
    Magenta = 5
    Brown = 6
    Grey = 7
    DarkGrey = 8
    BrightBlue = 9
    BrightGreen = 10
    BrightCyan = 11
    BrightRed = 12
    Pink = 13
    Yellow = 14
    white = 15
 
End Enum
 
Public Sub AddText(oRichTextBox As Object, ByVal Msg As String, ByVal Color As eTextColor, Optional NewLine As Boolean = True, Optional CustomColor As Long = -1)
 
    Dim s As String
    Dim c As Long
 
    If NewLine = True Then
 
        s = Msg & vbNewLine
 
    Else
 
        s = Msg
 
    End If
 
    c = oRichTextBox.SelStart
    oRichTextBox.SelStart = Len(oRichTextBox.Text)
 
    If CustomColor <> -1 Then
 
        oRichTextBox.SelColor = CustomColor
 
    Else
 
        oRichTextBox.SelColor = QBColor(Color)
 
    End If
 
    oRichTextBox.SelText = s
    oRichTextBox.SelStart = Len(oRichTextBox.Text) - 1
 
End Sub

If Mid(Datos, 1, 3) = "MSG" Then 'Cuando recibo es MSGmensaje

    Mensaje = Split(Mid(Datos, 4, Len(Datos)), ":")
 
    Call AddText(Text1.Text, Mensaje(0) & ": ", vbBlack, False)
    Call AddText(Text1.Text, Mensaje(1), vbBlue, True)
 
End If