'Esta clase permite realizar la verificacion del rut retornado un booleano
Public Class validarut
    Public Function verificarrut(ByVal rrr, ByVal vvv)
        Dim rut(7) As Integer
        Dim i As Integer = 0
        Dim suma As Integer = 0
        Dim j As Integer = 2
        Dim dig As Integer = 0
        Dim digs As String = ""
        Dim resultado As Boolean = False
        For i = 7 To i > 0 Step -1
            rut(i) = rrr - (CInt(rrr /10)) * 10
            rrr = rrr/ 10
        Next
        For i = 7 To i > 0 Step -1
            suma = rut(i) * j + suma
            j = j + 1
            If j = 8 Then
                j = 2
            End If
        Next
        dig = 11 - (suma Mod 11)
        If dig = 11 Then
            digs = "0"
        Else
            If dig = 10 Then
                digs = "K"
            Else
                digs = CStr(dig)
            End If
        End If
        If digs = vvv Then
            resultado = True
        End If
        Return (resultado)
    End Function
End Class