Validar datos numéricos en vb.net

Función para validar la entrada de datos numéricos por teclado en un formulario de vb.net.

Voy a explicar la rutina que utilizo yo para validar la entrada de datos numéricos en un formulario realizado en vb.net.

La función es la siguiente, creo que no hace falta explicación, con los comentarios tenemos suficiente información. Si hace falta alguna aclaración, ya sabeis un comentario en el post y ya os responderé.

La llamada a la función se realizará dentro del evento "TextChanged".