Private Sub AddLog(Rich As Object, Tekst As String, Cvet As ColorConstants, NewStroka As Boolean)
Rich.SelStart = Len(Tekst)
Dim i As Integer
i = 0
i = Len(Rich.Text)

If NewStroka = True Then
    Rich.Text = Rich.Text & vbCrLf & Tekst
    Rich.SelStart = i + 1
Else
    Rich.Text = Rich.Text & Tekst
    Rich.SelStart = i
End If

Rich.SelLength = Len(Tekst)
Rich.SelColor = Cvet
Rich.SelLength = 0
End Sub