Visual Basic - Solo numeros

con este codigo:
If KeyAscii < 48 Or KeyAscii > 57 Then
If KeyAscii <> 8 And KeyAscii <> 13 then

KeyAscii = 0
end if
end if
me deja solo agregar numeros pero no me deja agregar la coma y si activo el Ascii 33 que es la coma, entonces se me activan todas las letras

Private Sub Txtnumrfc_KeyPress(KeyAscii As Integer)
Dim STRVALIDO As String
STRVALIDO = "0123456789,-"
KeyAscii = Asc(UCase(Chr(KeyAscii)))
If KeyAscii > 26 Then
If InStr(STRVALIDO, Chr(KeyAscii)) = 0 Then
KeyAscii = 0
End If
End If

If KeyAscii = 13 Then
SendKeys "{tab}"
KeyAscii = 0
End If

End Sub

espero te sirva es en el evento KeyPress yo los uso en los Textbox y no tengo problemas

Private Sub Txtnumrfc_KeyPress(KeyAscii As Integer)
Dim STRVALIDO As String
STRVALIDO = "0123456789,-"
KeyAscii = Asc(UCase(Chr(KeyAscii)))
If KeyAscii > 26 Then
If InStr(STRVALIDO, Chr(KeyAscii)) = 0 Then
KeyAscii = 0
End If
End If

If KeyAscii = 13 Then
SendKeys "{tab}"
KeyAscii = 0
End If

End Sub

espero te sirva es en el evento KeyPress yo los uso en los Textbox y no tengo problemas

La coma no tiene código Ascii 33. El código ascii de la coma es 44. Te envío un código alternativo que puede servirte

Private Sub Form_KeyPress(KeyAscii As Integer)
Select Case KeyAscii
Case 48 To 57, 44
'El código que quieras
Case Else
'Elimina el keypress
KeyAscii = 0
'Señal de alerta
Beep
End Select
End Sub

Espero que te sirva