Private Sub RichTextBox1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 9 Then
KeyCode = Asc(" ")
End If
End Sub

TABキー押されたとき、RichtextBoxにTabコード（＆H9)を入れたいのですが、、、、
無理やりこんなこと（スペースに置き換え）やってます。
なんか方法ないのでしょうか？