Visual Basic - Ayuda Por favor

Hola chicos estoy utilizando la siguiente función:
Function SoloNumeros(ByVal KeyAscii As Integer) As Integer
''permite que solo sean ingresados los numeros, el ENTER y el RETROCESO
' If InStr("0123456789/-,", Chr(KeyAscii)) = 0 Then
' SoloNumeros = 0
' Else
' SoloNumeros = KeyAscii
' End If
' teclas especiales permitidas
' If KeyAscii = 8 Then SoloNumeros = KeyAscii ' borrado atras
' If KeyAscii = 13 Then SoloNumeros = KeyAscii 'Enter
'End Function
y me da un error Error de compilación, no se puede encontrar el proyecto o la biblioteca y se para el Chr. Chicos la verdad y no se que hacer. Por fa ayudenme.

Hola que tal.
Bueno con este código no he intentado pero con el que escribo ahora también funciona.

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii < 48 Or KeyAscii > 57 Then
If KeyAscii <> 8 And KeyAscii <> 13 Then
KeyAscii = 0
End If
End If
End Sub

Espero que te sirva
Un saludo

Con ese codigo me deja solo ingresar numeros, pero no me deja ingresar la coma, y si activo la coma que es el ascii 33 entonces me activa todas las letras

Hola otra vez.
En la línea de código añade el nº ASCII correspondiente a la "," que creo que es el 44.
If KeyAscii <> 8 And KeyAscii <> 13 And Keyascii<>44 Then
Un saludo