como valido numero y el punto en un textBox

[fero]

Private Sub Text1_KeyPress(KeyAscii As Integer)

Select Case KeyAscii
Case 8, 13, 48 To 57, Asc(".") ' o Asc(",")
Exit Sub
Case Else
KeyAscii = 0
End Select

End Sub

Para culd:
keyascii es integer, no se puede comparar en el select con "1", "2", etc.
En todo caso con Asc("1"), etc.