hola amigos , tengo el siguiente codigo para calcular el digito de verificacion del nit para colombia pero no se como usarlo para que me funcione utilizando dos textbox uno es donde se digita el nit y el otro donde arroja el resultado del DV :

Public Function DV(Nit)

Dim TipoRet, lnRetorno, Arreglo_PA(15), WSuma, WDato, WDig_Ver As Integer

TipoRet = VarType(Nit)

Select Case TipoRet

Case TipoRet = "C"

Nit = Trim(Nit)

Case TipoRet = "N" Or TipoRet = "Y"

Nit = Trim(Str(Nit))

End Select

Arreglo_PA(1) = 71

Arreglo_PA(2) = 67

Arreglo_PA(3) = 59

Arreglo_PA(4) = 53

Arreglo_PA(5) = 47

Arreglo_PA(6) = 43

Arreglo_PA(7) = 41

Arreglo_PA(8) = 37

Arreglo_PA(9) = 29

Arreglo_PA(10) = 23

Arreglo_PA(11) = 19

Arreglo_PA(12) = 17

Arreglo_PA(13) = 13

Arreglo_PA(14) = 7

Arreglo_PA(15) = 3

lnRetorno = 0

WDato = Right(Space(15) + Trim(Nit), 15)

WSuma = 0

WDig_Ver = 0

For i = 1 To 15

WSuma = WSuma + (Val(Mid(WDato, i, 1)) * Arreglo_PA(i))

Next i

WSuma = WSuma Mod 11

If WSuma = 0 Or WSuma = 1 Then

lnRetorno = WSuma

Else

lnRetorno = 11 - WSuma

End If

If TipoRet = "C" Then

DV = Trim(Str(lnRetorno))

Else

DV = lnRetorno

End If

End Function

espero su acostumbrada colaboracion..

Private Sub TextBox1_Change

  TextBox2 = DV(TextBox1)

End Sub[/CODE]

Buen dia Macro Antonio, gracias por tu ayuda pero en donde coloco todo el codigo "funcion public DV(nit)" en el textbox2? o tengo que modificar en algo la estructura ?..Apenas estoy iniciando con userform . si no es mucha molestia me puedes colocar el ejemplo en excel funcionando con los 2 textbox(ej nit 860002536 y el DV debe ser 5) . mil gracias y agradezco su ayuda..

Hola Macro antonio, muchas gracias ya la hice funcionar.. le agradezco su ayuda. pero aprovecho para otra inquietud ahi mismo tengo un combobox en donde me indica si es (cedula,nit,extranjero) como hago para que solo calcule el DV cuando es nit solamente. y de nuevo muchas gracias por su ayuda.

Sin el archivo no hay nada que hacer.