Visual Basic - Validar CIF

Como puede saber si el CIF de una empresa es verdadero, en VB?

utiliza este código

Private Sub DNI()
letras = \"tbwagmyfpdxbnjzsqvhlcke\"
DN = Text1.Text
c = (DN Mod 23) + 1
Text2.Text = Mid(letras, c, 1)
End Sub

en text1.mete el DNI y el text 2 te mostrará la letra correspondiente asi puedes validarlo

Gracias por tu respuesta, pero si en lugar de se un DNI es un CIF de una empresa??. Ej: B - 14256589.

la validación de las letras del dni es la que te postee pero la del CIF no la se supongo que será algo po el estilo