Algoritm verificare CNP

Mi-a trebuit acest algoritm pentru un program, si de aceea am decis sa il postez si pe site... Poate mai are altcineva nevoie de el... Va rog scuzati toate denumirile de tip cnccc, dar l-am facut in graba...
Atasat am refacut programul Age from CNP...

Dim cnval As Integer
		Dim cn0 As String = cn(0)
		Dim cn1 As String = cn(1)
		Dim cn2 As String = cn(2)
		Dim cn3 As String = cn(3)
		Dim cn4 As String = cn(4)
		Dim cn5 As String = cn(5)
		Dim cn6 As String = cn(6)
		Dim cn7 As String = cn(7)
		Dim cn8 As String = cn(8)
		Dim cn9 As String = cn(9)
		Dim cn10 As String = cn(10)
		Dim cn11 As String = cn(11)
		Dim cnval1 As Double = cn0 * 2
		Dim cnval2 As Double = cn1 * 7
		Dim cnval3 As Double = cn2 * 9
		Dim cnval4 As Double = cn3 * 1
		Dim cnval5 As Double = cn4 * 4
		Dim cnval6 As Double = cn5 * 6
		Dim cnval7 As Double = cn6 * 3
		Dim cnval8 As Double = cn7 * 5
		Dim cnval9 As Double = cn8 * 8
		Dim cnval10 As Double = cn9 * 2
		Dim cnval11 As Double = cn10 * 7
		Dim cnval12 As Double = cn11 * 9
		cnval = cnval1 + cnval2 + cnval3 + cnval4 + cnval5 + cnval6 + cnval7 + cnval8 + cnval9 + cnval10 + cnval11 + cnval12
		Dim cnpcn As Double = cnval / 11
		Dim cnpcon As Double = cnpcn
		Dim cnc As String = Format(cnpcon, "0.00")
		Dim cncon As String = cnc
		Dim cncont As Array = cncon.ToCharArray
		Dim cifra As String
		Dim cnpcontrolcifra As String = cncont(3) & cncont(4)
		Dim cncccc As String = cncont(3)
		Dim cnccc As Integer = cncccc
		If cnpcontrolcifra = "10" Then
			cifra = "1"
		Else
			If cncont(4) < "5" Then
				cifra = cnccc
			ElseIf cncont(4) >= "5" Then
				cifra = cnccc + 1
			End If
		End If
		If cn(12) <> cifra Then
			MsgBox("CNP-ul nu este valid! Cifra de control neverificatã!")
		ElseIf cn(12) = cifra Then
'Aici puneti ce vreti sa faca daca CNP-ul e valid...
End if