Nel tuo caso specifico basta questo:
codice:
Private Sub Text1_KeyPress(KeyAscii As Integer)
    If KeyAscii = 46 Then KeyAscii = 44
End Sub
Praticamente se il carattere é il punto (Ascii = 46) allora scrive la virgola (Ascii = 44)

Ciao