Visual Basic - Urgente problemas con validacion

Amigos,Como puedo hacer para que en una caja de texto solo puedan ingresar valores numericos....ayudenme por favor, es urgente, Gracias

Public Function fuValidaEntero(tecla As Integer) As Integer
Select Case tecla
Case 8
Case vbKey0 To vbKey9
Case Else
fuValidaEntero = 0
Exit Function
End Select
fuValidaEntero = tecla
End Function


Private Sub TEXT1_KeyPress(KeyAscii As Integer)
KeyAscii = fuValidaEntero(KeyAscii)
End Sub

ahi te mando una funcion y como aplicarla.-

Suerte.