Permitir solo entrada de numeros en campo

Este sub se guarda en un modulo y se llama en el evento KeyPress del Textbox y sirve para permitir unicamente la entrada de numeros, se llama desde el texbox asi:

Numeros (Me, e, True)

El Parametro booleano del sub, sirve para permitir o no la entrada del punto decimal.

Codigo

Public Sub Numero (ByVal Sender As Object, _

Byval e As System.Windows.Forms.KeyPressEventArgs, _

Optional ByVal Dec as Boolean = True)

Dim K as Short = Asc(e.KeyChar)

Select Case K

Case 8, 13, 27

K = K

Case 48 To 57

K = K

Case 46

If Dec = True Then

K = K

Else

K = 0

End If

Case Else

K = 0

End Select

e.KeyChar = Chr(K)

If K = 0 Then e.Handled = True

End Sub