[Resolvido]Códigos KeyAscii

Boa tarde

Uso esta formula para trocar o . (Ponto) pela ,(virgula) no teclado.

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

Acontece que o meu PC tem um teclado numerico que tem uma tecla com um (. e DEL)
Se no teclado normal a tecla .( ponto)  é igual a 46 e a função troca para ,(virgula)

Qual é o numero da tecla no teclado numérico do lado direito do zero (. e DEL) ?

Obrigado

Boa tarde, Assis
É o código 110

Obrigado Alexandre

Mas:
Se for assim: Funciona troca a virgula por ponto

Private Sub Ref_KeyPress(KeyAscii As Integer)
Select Case KeyAscii
Case 44           ' {,}, troca ponto por virgula.
KeyAscii = 46     ' {.}
End Select
End Sub



Se for assim: Não funciona  não troca a virgula por ponto

Private Sub Ref_KeyPress(KeyAscii As Integer)
Select Case KeyAscii
Case 110             ' {,}, troca ponto por virgula.
KeyAscii = 46     ' {.}
End Select
End Sub

Não sei se as tabelas são todas iguais.
A minha vírgula (verifiquei agora) é o código 188

Use este programa do Criquio Para descobrir qual código da tecla

Obrigada Agravina
Eu conheço
Dá código 110 como diz o Mestre Alexandre

Desculpem-me a intromissão mas uso teclado assim também.
Uso assim para trocar a vírgula, por ponto:

If (KeyCode = 110) Then

KeyCode = 190

End If

Porque 46 é com o NumLock desligado e 190 é o ponto do teclado alfabético.
Uso teclado padrão americano até hoje então se eu usar 1.44 ficaria 144,00.
Se é que entendi a necessidade.

Obrigado Buscador

Private Sub Ref_KeyDown(KeyCode As Integer, Shift As Integer)
If (KeyCode = 110) Then
KeyCode = 190
End If
End Sub