>>6 
 
Me.RichTextBox1.AppendText(vbNewLine) 
Me.RichTextBox1.ScrollToCaret() 
 
上のように２行追加しましたら、出来ました。 
また、質問させて頂きます。