Réponse acceptée !
Dim i as long,Buffer as string

Buffer = Textbox1.text ' Stocke la chaine dans un buffer
i = instrrev(buffer, ",") 'Recherche une virgule dans la chaine en partant de la droite
If i >0 then  ' Si on a trouvé une virgule
  Buffer = left$(buffer, i-1)  ' On  ne prend que les i-1 caractères de gauche
else  ' Sinon (pas de virgule dans la chaine)
  msgbox "Aucune virgule dans la textbox"
endif
textbox1.text = buffer  ' On réaffecte le buffer à la propriété Text de la textbox

Christophe R