Private Sub RichTextBox1_KeyDown(KeyCode As Integer, Shift As Integer)
 
If KeyCode = vbKeyTab Then
KeyCode = 0
RichTextBox1.Text = RichTextBox1.Text & vbTab
RichTextBox1.SelStart = Len(RichTextBox1.Text)
End If
 
End Sub