Private Sub TextBox1_Change()
Dim i As Byte, j As Byte
Dim ponctu As Variant
ponctu = Array(',', ';', ':', '!', '?', '.', '/')
For i = 1 To Len(TextBox1)
For j = 0 To UBound(ponctu)
If Mid(TextBox1, i, 1) = ponctu(j) Then
TextBox1 = ''
Exit Sub
End If
Next j
Next i
End Sub