S-Virus:
Utiliza la función replace...
Código:
Replace(expression, find, replacewith[, start[, count[, compare]]])
O, si como entiendo, en algún campo de texto quieres reemplazar en el momento en que se teclea, sobreescribe el valor KeyAscii correspondiente al punto por el que corresponde a la coma en el evento KeyPress.