Visual Basic.NET - Validar dni

Hola.
Tengo un textbox con una mascar para el dni y quiero verificar quela letra del dni es correcta y me dice siempre que que esta mal. Aqui os dejo el codigo a ver si me podeis ayudar.
Private Sub D_N_IMaskedTextBox_Validating(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles D_N_IMaskedTextBox.Validating
Dim letras As String = "TRWAGMYFPDXBNJZSQVHLCKE"
Dim nifnum As Integer
Dim nif As String = D_N_IMaskedTextBox.Text
Dim valido As Boolean = True

If Not System.Text.RegularExpressions.Regex.IsMatch(nif, "^d{8}[" & letras & "] $") Then
valido = False
Else

nifnum = Integer.Parse(nif.Substring(0, nif.Length - 1))
If Not (nif(8) = letras(nifnum Mod 23)) Then
valido = False
End If
End If
If Not valido Then
e.Cancel = True
ErrorProvider1.SetError(D_N_IMaskedTextBox, "El D.N.I introducido no es correcto")

Else
e.Cancel = False
ErrorProvider1.SetError(D_N_IMaskedTextBox, Nothing)

End If
End Sub

mira este enlace

http://www.elguille.info/NEt/dotnet/comprobar_validar_NIF_CIF_calcular_letra_NIF.aspx

DNI deve de estar junto no separado

Public Class CNif

Private _dni As Integer
Private _letra As String

Sub New(ByVal dni As Integer)
_dni = dni
Calculaletra()
End Sub

Public Function DameLetra() As String
Return _letra
End Function

Private Sub Calculaletra()
Dim Resto As Integer
Resto = CInt(_dni) Mod 23
Select Case (Resto)
Case 0
_letra = "T"
Case 1
_letra = "R"
Case 2
_letra = "W"
Case 3
_letra = "A"
Case 4
_letra = "G"
Case 5
_letra = "M"
Case 6
_letra = "Y"
Case 7
_letra = "F"
Case 8
_letra = "P"
Case 9
_letra = "D"
Case 10
_letra = "X"
Case 11
_letra = "B"
Case 12
_letra = "N"
Case 13
_letra = "J"
Case 14
_letra = "Z"
Case 15
_letra = "S"
Case 16
_letra = "Q"
Case 17
_letra = "V"
Case 18
_letra = "H"
Case 19
_letra = "L"
Case 20
_letra = "C"
Case 21
_letra = "K"
Case 22
_letra = "E"
End Select
End Sub
End Class

Copia esta función, pero como no tengo el algoritmo para empresas y comunidades la función solo controla particulares.