''' <summary>Recibir un texto para procesarlo y agregarlo al chat</summary>
    ''' <param name="IdUser">Identificador del usuario que envio el texto</param>
    ''' <param name="StrText">Texto enviado</param>
    ''' <param name="Hour">Hora en lq que se envio el texto</param>
    ''' <returns>UN valor que indica si se recibio el texto</returns>
    Public Function RecibeText(ByVal IdUser As String, ByVal StrText As String, ByVal Hour As Date) As Boolean
        rtbTalk.Text += vbNewLine & vbNewLine
        rtbTalk.SelectionStart = rtbTalk.TextLength
        Dim StrID As Long = rtbTalk.SelectionStart
        'Agregar el usuario con una fuente
        rtbTalk.Text += IdUser & " dice: "
        Dim EndID As Long = rtbTalk.TextLength
        rtbTalk.SelectionStart = StrID
        rtbTalk.SelectionLength = EndID - StrID
        rtbTalk.SelectionFont = _IDFont
        rtbTalk.SelectionColor = _IDColor
        rtbTalk.SelectionStart = EndID
        'Agregar el texto enviado
        rtbTalk.Text += vbNewLine
        rtbTalk.SelectionStart = rtbTalk.TextLength
        StrID = rtbTalk.SelectionStart
        Dim strObject As Object = AnalysingStr(StrText)
        rtbTalk.Text += strObject
        EndID = rtbTalk.TextLength
        rtbTalk.SelectionStart = StrID
        rtbTalk.SelectionLength = EndID - StrID
        rtbTalk.SelectionFont = _FontText
        rtbTalk.SelectionColor = _TextColor
        rtbTalk.SelectionStart = EndID
        Return True
    End Function