Puoi anche usare un vecchio modo del Vb6

codice:
Private Sub Text_KeyPress(KeyAscii as Integer)
Select Case KeyAscii
Case Asc(".")
 KeyAscii = asc(",")
End Select
End Sub