Sustituir punto por coma o viceversa

[albersil]

Iniciado por MaxExtreme

Código:

Private Sub Text1_KeyPress(KeyAscii As Integer)
    If KeyAscii = Asc(".") Then KeyAscii = Asc(",")
End Sub

¿Veis? Yo también se dar ejemplos...

Eso esta bien para un textbox, pero si tienes muchos, tienes que hacerlos uno por uno repitiendo el codigo o como se hace. En concreto yo tengo 42 textbox que se llaman TextBox1, TextBox2,... asi hasta el TextBox42. Como podria hacerlo para que valiera un solo codigo para todos los textox. Gracias y Salu2