Control para validar el CUIT

[Bazooka]

Hola amigos estoy por empezar a migrar una aplicacion echa en VB6 y comenzar a dar mis primeros pasos en esta plataforma, asi que me tendrán mas seguido por aca!!

En esta oportunidad necesito un control o algo para validar un cuit , En VB6 tenia un ocx pero anque creo lo puedo usar quiero evitarlo.

Gracias por su ayuda

[E N T E R]

Hola

Código: (VB) [Seleccionar]

Private Function mkf_validacuit(ByVal mk_p_nro As String) As Boolean
   
    Dim mk_suma As Integer
    Dim mk_valido As String
    mk_p_nro = mk_p_nro.Replace("-", "")
   
    If IsNumeric(mk_p_nro) Then
       
        If mk_p_nro.Length <> 11 Then
            mk_valido = False
        Else
            mk_suma = 0
            mk_suma += CInt(mk_p_nro.Substring(0, 1)) * 5
            mk_suma += CInt(mk_p_nro.Substring(1, 1)) * 4
            mk_suma += CInt(mk_p_nro.Substring(2, 1)) * 3
            mk_suma += CInt(mk_p_nro.Substring(3, 1)) * 2
            mk_suma += CInt(mk_p_nro.Substring(4, 1)) * 7
            mk_suma += CInt(mk_p_nro.Substring(5, 1)) * 6
            mk_suma += CInt(mk_p_nro.Substring(6, 1)) * 5
            mk_suma += CInt(mk_p_nro.Substring(7, 1)) * 4
            mk_suma += CInt(mk_p_nro.Substring(8, 1)) * 3
            mk_suma += CInt(mk_p_nro.Substring(9, 1)) * 2
            mk_suma += CInt(mk_p_nro.Substring(10, 1)) * 1
        End If
       
        If Math.Round(mk_suma / 11, 0) = (mk_suma / 11) Then
            mk_valido = True
        Else
            mk_valido = False
        End If
    Else
        mk_valido = False
    End If
   
    Return (mk_valido)
   
End Function

Código: (VB) [Seleccionar]

Private Function VerfCuit(ByVal e As String) As Boolean
   
    Dim numconst As String = 5432765432
    Dim x As Integer
    Dim valor1 As Integer
    Dim valor2 As Integer
    Dim valor3 As Integer
    Dim comprobante As Integer = CInt(e.ToArray.GetValue(e.ToArray.Length - 1).ToString)
   
    For x = 0 To CInt(CInt(e.ToArray.Length).ToString - 2)
        valor1 += CInt(e.ToArray.GetValue(x).ToString) * CInt(numconst.ToArray.GetValue(x).ToString)
    Next
   
    valor2 = valor1 Mod 11
    valor3 = 11 - valor2
   
    If valor3 = comprobante Then
        Return True
    Else
        Return False
    End If

End Function



Fuente: http://www.taringa.net/posts/info/2604880/Funcion-Para-Validar-CUIT-en-VB-NET.html

Saludos..

[Bazooka]

Gracias amigo Enter