Permitir SOLO ingreso de Números en un TextBox en VB

En el Evento KeyPress del TextBox pegar el siguiente codigo:

Private Sub Text1_KeyPress(KeyAscii As Integer)
Select Case KeyAscii
Case 8, 13, 27
KeyAscii = KeyAscii
Case 48 To 57
KeyAscii = KeyAscii
Case Else
KeyAscii = 0
End Select
End Sub

Si se quiere ingresar la coma como separación decimal quedaría de la siguiente manera:

Private Sub Text1_KeyPress(KeyAscii As Integer)
Select Case KeyAscii
Case 8, 13, 27
KeyAscii = KeyAscii
Case 44, 46
If InStr(1, Text1.Text, ",") Then
KeyAscii = 0
Else
KeyAscii = 44
End If
Case 48 To 57
KeyAscii = KeyAscii
Case Else
KeyAscii = 0
End Select
End Sub