I wonder if this might help. I use this code for tabs in a richtext field.
http://www.dbforums.com/t997217.html
Code:
================================================
Private Sub RichText_KeyDown(KeyCode As Integer, ByVal Shift As Integer)
Dim strTextStart As String, strTextEnd As String, n As Integer
If KeyCode = vbKeyTab Then
KeyCode = 0
n = Me![RichText].SelStart
strTextStart = Mid(Me![RichText].Text, 1, n)
strTextEnd = Mid(Me![RichText].Text, n + 1, Len(Me![RichText].Text) - n)
Me![RichText] = strTextStart & Chr(vbKeyTab) & strTextEnd
Me![RichText].SelStart = n + 1
End If
End Sub
================================================
Good Luck,
PC