Trocar virgula pelo ponto

Quer trocar a virgula pelo Ponto ?

Private Sub Comp_KeyPress(KeyAscii As Integer)
Select Case KeyAscii
Case 8, 44, 48 To 57 ' {Backspace}, {,}, {0} a {9}, aceita estes caracteres. ' Continua
Case 46 ' {.}, troca ponto por virgula.
KeyAscii = 44 ' {,}
Case Else
KeyAscii = 0 ' Demais teclas, não aceita.
End Select
End Sub