Personnummervalidering i VB.NET

Hej! Jag har försökt omarbeta javascript-funktionen här till VB.NET men det går inte bra. Kan någon hjälpa till och se vad som blivit fel?

Nr kommer in som "ååååmmddkkkk", Kon som "M" eller "K".

Private Function ValideraPersonnr(ByVal Nr As String, ByVal Kon As String) As Boolean
        Dim Personnr As String = Nr.Substring(2, 10)
Dim CheckSum As Int32 = 0
        Dim nn As Int32 = 0

        For n As Int32 = 0 To Personnr.Length - 1
            nn = nn + ((((n + 1) Mod 2) + 1) * CInt(Personnr.Substring(n, 1)))
        Next

        For n As Int32 = 0 To nn.ToString.Length - 1
            CheckSum = (CheckSum + CInt(nn.ToString.Substring(n, 1))) * 1
        Next

        If (CheckSum Mod 10) = 0 Then
            If (CInt(Nr.Substring(8, 1)) Mod 2) = 0 And Kon = "K" Then
                Return True
            ElseIf (CInt(Nr.Substring(8, 1)) Mod 2) = 1 And Kon = "M" Then
                Return True
            Else
                Return False
            End If
        Else
            Return False
        End If
End Function