Access - Ingresar el rut en un textbox

Public Function ValidarNIT(nit As String) As Boolean

  ' Función para validar un NIT en Colombia

  ' Elborado por:

  '               Eduardo Pérez Fernández

  ' ejemplo: ValidarNIT("8909039388") es el NIT de Bancolombia

    nit = Trim(nit)

    If nit = "" Or Len(nit) <> 10 Then

        ValidarNIT = False

        Exit Function

    End If

    Dim mult As Variant

    mult = Array(41, 37, 29, 23, 19, 17, 13, 7, 3)

    Dim i As Integer

    Dim v As Integer

    For i = 1 To 9

        v = v + CInt(Mid(nit, i, 1)) * mult(i - 1)

    Next i

    v = v Mod 11

    If v >= 2 Then

        v = 11 - v

    End If

    ValidarNIT = CStr(v) = Mid(nit, 10, 1)

End Function

Public Function digitoDV(strnit As String) As String

 ' Función para obtener el dígitos de verificación de

 ' un NIT en Colombia

 ' Por Eduardo Pérez Fernández

 '

 ' Requiere de la función ValidarNIT()

  Dim nit As Boolean

  nit = ValidarNIT(strnit)

  If nit Then

     digitoDV = Right(strnit, 1)

  Else

     digitoDV = "El nit no es válido"

  End If

End Function