Modifico....
Public Sub validar_numero(ByVal e)
        If Char.IsDigit(e.KeyChar) Then 'compara si la tecla es tipo numerica
            e.Handled = False 'Acepta el numero
        ElseIf Char.IsControl(e.KeyChar) Then  'variable de control
            e.Handled = False 'acepta la variable
        Else
            e.Handled = True 'Deniega el caracter
        End If
    End Sub
Bueno como ven en ese código hago que acepte solo numeros y no letras...
el problema es que Iscontrol no se si solo sirve para activar poder borrar (deleter) lo que este en el campo de texto (textbox) 
ya que cuando lo quito no puedo borrar lo que haya ingresado en el textbox
entonces la pregunta es ¿solo sirve para borrar el campo de texto?
			
			
			
				http://msdn.microsoft.com/es-es/library/system.char.iscontrol%28v=vs.80%29.aspx (http://msdn.microsoft.com/es-es/library/system.char.iscontrol%28v=vs.80%29.aspx)
http://es.wikipedia.org/wiki/Car%C3%A1cter_de_control (http://es.wikipedia.org/wiki/Car%C3%A1cter_de_control)