Try this. If you send the RichTextBox control .SelStart property +1, it seems to work...
Public Function HTMLPosition(ByVal iintVisiblePosition As Integer, ByVal istrHTMLtext As String) As Integer
Dim boolSkipTag As Boolean, boolSkipCarSpec As Boolean
Dim intCar As Integer, intLen As Integer...