Visual Basic - Cual es el Keyascci del punto ( " . " ) ??

Hola amigos, quiero que solo me deje presionar en un textbox los numeros, el borrar y el punto ( ". " ), aquí lo tengo pero me falta saber el Case del punto, me podeis ayudar ??

Private Sub textoprecio_KeyPress(KeyAscii As Integer)

Dim a As String
Select Case KeyAscii
Case 48 To 57
Case 8
Case Else
MsgBox "Introduzca solo dígitos o el punto '.' porfavor"
KeyAscii = 0
Beep
End Select

End Sub

Corresponde al valor KeyAscii=46.

SALUDOS

Muchas gracias amigo """""""

para saber el keyascii de una tecla podes usar este codigo.
que es una boludes

Private Sub Text1_KeyPress(KeyAscii As Integer)
MsgBox KeyAscii
End Sub

pero la respuesta a tu pregunta es:
no te combiene poner un msgbox de este tipo:
MsgBox "Introduzca solo dígitos o el punto '.' porfavor"

te conviene poner

if keyascii=48 then keyascii=0
para no molestar al usuario con un msgbox