S'il ne doit y avoir qu'un caractère, on peut faire
if TextBox.text = "," or TextBox.text = "/" then
..
end if
Si cela doit être le premier caractère, on peut faire
if left$(TextBox.text, 1) = "," or (left$(TextBox.text, 1) = "/" then
..
end if
etc..
Tout dépend des exigences.
On peut même chercher s'il y a un caractère donné dans une chaîne.
S'il ne faut que des caractères alphanumériques ou , ou \, on peut faire qq chose comme cela
for k% = 1 to len(TextBox.Text)
c$ = mid$(TextBox.Text, k%, 1)
if c$ <> "," and c$ <> "\" and (c$ < "A" or c$ > "Z" ) then
ERREUR
exit for
end if
next k%
(de mémoire, je pratique plus VB)
On peut aussi s'attacher à l'évenement KeyPress ou KeyDown de VB qui arrive à chaque frappe de caractère au clavier et vérifier si le code ascii est bon. Sinon intercepter le code, ou signaler erreur.