Visual Basic - caja de texto solo con numeros

¿como hago para que en la caja de texto solo acepte numeros y no acepte caracteres?
gracias

Puedes usar el siguiente codigo que encontre por la web :

Private Sub Text1_KeyPress(KeyAscii As Integer)
Select Case KeyAscii
Case 48 To 57, 46 ' Numeros del 0 al 9, El punto decimal
Case Else: KeyAscii = 0
End Select
End Sub