พี่ค่ะ อยากได้ code ตรวจสอบเลขบัตรประจำตัวประชาชน ภาษา vb.net ค่ะ

Dim sum, count As Integer
        If TextBox3.Text = "" OrElse Len(TextBox3.Text) < 13 Then
            MessageBox.Show("กรุณากรอกหมายเลขบัตรประชาชนให้ครบทั้ง 13")
        Else
            sum = 0
            For count = 1 To 12
                sum = sum + Val(Mid(TextBox3.Text, count, 1)) * (14 - count)
            Next

            If Microsoft.VisualBasic.Right(TextBox3.Text, 1) <> Microsoft.VisualBasic.Right(Str(11 - (sum Mod 11)), 1) Then
                MessageBox.Show("หมายเลขบัตรประชาชน " & TextBox3.Text & " ไม่ถูกต้อง.", "รายงานการตรวจสอบ", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
                Exit Sub
            End If
        End If

 Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        If Not Page.IsPostBack Then

            Check_IdCode()

        End If
    End Sub

    Protected Sub Check_IdCode()
        Dim sum, count As Integer
        If txtIdCard.Text = "" OrElse Len(txtIdCard.Text) < 13 Then
            MessageBox.Show("กรุณากรอกหมายเลขบัตรประชาชนให้ครบทั้ง 13")
        Else
            sum = 0
            For count = 1 To 12
                sum = sum + Val(Mid(txtIdCard.Text, count, 1)) * (14 - count)
            Next

            If Microsoft.VisualBasic.Right(txtIdCard.Text, 1) <> Microsoft.VisualBasic.Right(Str(11 - (sum Mod 11)), 1) Then
                MessageBox.Show("หมายเลขบัตรประชาชน " & txtIdCard.Text & " ไม่ถูกต้อง.", "รายงานการตรวจสอบ", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
                Exit Sub
            End If
        End If
    End Sub