Visual Basic para Aplicaciones - text, solo numeros y coma

Como puedo forzar un text para que solamente admita numeros y coma
(forzarlo para solamente numeros ya me funciona pero la coma no)

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii <> 44 And (KeyAscii < 48 Or KeyAscii > 57) Then
MsgBox "sólo se pueden escribir números y coma"
KeyAscii = 0
End If
End Sub