Réponse acceptée !
Salut
Rechercher dans un RichTextBox (RTB), rien de plus simple avec la commande RTB.Find "$" ...
Une fois que tu sais où se trouve le caractère cherché (attention, les n° de caractères commencent à 0 dans un RTB et pas à 1), il te suffit de récupérer le caractère qui suit et de tester sa valeur :

Lieu = Valeur renvoyée par le .Find
Dim Temp As String
Temp = Mid(RTB.Text, Lieu + 1, 1)   ' Isole le caractère
Il Temp Like "[a-z]" Or _
   Temp Like "[A-Z]" Or _
   Temp Like "[0-9]" Or _
   Temp = "_" Then
      MsgBox "C'est un alphanumérique"
End If

Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés

Le savoir est la seule matière qui s'accroit quand on la partage. (Socrate)