Ayuda con caja de texto

[COCO_SS]

Como hacer que en una caja de texto en visual solo se puedan introducir numeros

[COCO_SS]

Ya ta ya lo sake, es de la siguiente forma



Private Sub txtnumcd_KeyPress(KeyAscii As Integer)
If KeyAscii >= 48 And KeyAscii <= 57 Then
Exit Sub
Else
KeyAscii = 0
End If
End Sub