try this:

vb Code:
  1. Private Sub TextBox1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles TextBox1.MouseDown
  2.     MsgBox(TextBox1.GetCharFromPosition(New Point(e.X, e.Y)))
  3. End Sub