[Resolvido]Impedir escrever letras e não substituir a virgula por ponto

Bom dia,

Tenho uma caixa de texto num formulário e precisava que ela só aceita-se
escrever números e não substitui-se a virgula por ponto, alguém
me pode ajudar?

Mto Obrigado

Já deu uma olhada no Repositório de Exemplos? Lá tem um exemplo que faz isso.

Boa tarde PPTT

Será isto

Private Sub valor_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

Boa noite,

será isso mas não trocar o ponto por virgula,
como será?

Obrigado

Muito obrigado e desculpe Assis,
não tinha reparado nas pelicas:
' Case 46 ' {.}, troca ponto por virgula.
' KeyAscii = 44 ' {,}

Resolvidissimo.

Abraço

Obrigado PPTT
Pelo retorno