Visual Basic - comprobar codigos KeyDown y KeyPress

como puedo comprobar el códigoAscii del "." del teclado númerico en los eventos KeyDown y KeyPress de un textbox. Y que código tengo que añadir para validar la entrada númerica decimal desde el teclado númerico, utilizando el "." y desde el teclado alfanumerico utilizando la "," .

Private Sub txtNumero_KeyPress(KeyAscii As Integer)
ValidarNumeros KeyAscii
End Sub

Public Sub ValidarNumeros(KeyAscii As Integer)
If KeyAscii = 8 Then
Beep
Exit Sub
End If
If KeyAscii = 46 Then
KeyAscii = 44
Beep
Exit Sub
End If
If KeyAscii < 48 Or KeyAscii > 57 Then
KeyAscii = 0
Beep
End If
End Sub

Probá con esto. Espero que te sirva

Me ha funcionado bien, pero al dar formato de esta forma:

Private Sub TextBox2_Change()
TextBox2.Text = Format(TextBox2.Text, "##,##0.00")
End Sub

me da errores, muy raros.

Por otro lado no admite la ","del teclado alfanumerico. pero si funciona bien pasando el "." a coma. como incluir la coma tambien.
Tengo instaldo el Visual Basic 6, dentro de Word, por si esto da una pista.