Private Sub AddLine(ByVal who As String, ByVal Text As String)

    With rtbOutput

        .SelStart = Len(.Text)

        If who = "You" Then
            .SelBold = True
            .SelColor = RGB(0, 0, 255)
            .SelText = "You: "
            .SelBold = False
        Else
            .SelBold = True
            .SelColor = RGB(200, 0, 0)
            .SelText = "AI: "
            .SelBold = False
        End If

        .SelColor = RGB(0, 0, 0)
        .SelText = Text & vbCrLf

        ' Автопрокрутка вниз
        .SelStart = Len(.Text)
        .SelLength = 0

    End With

End Sub