Visual Basic - Calcular el digito de control del NIF/CIF

Hola!! ¿alguien me puede mandar una rutina para calcular el dígito de control de un CIF o un NIF? Tengo un campo que es la letra CIF, otro campo que es el número, y otro campo para la letra NIf. Si alguien lo tiene, agradecería que me lo mandárais. Muchas gracias!!

Lo acabo de mandar a tu correo

Hola,
Me puedes enviar a mi también el código?

Muchas gracias.

Saludos.