>>893
1）は
txtLog.SelStart = Len(txtLog.Text)
txtLog.SelLength = 0
txtLog.SelText = "追加したい文字" & vbCrLf

ってな感じでいけると思う。
ただ、これだといつかオーバーフローするので、
一定文字数になったら昔のは破棄するようにしないとだめ。
If Len(txtLog.Text) > 10000 Then txtLog.Text = Right(txtLog.Text, 9000)
こんな感じかな。