DV

Saludos a todos los miembros.

Tngo una rutina en VB 6.0 que calcula el numero de
verificacion para una persona.
El codigo es:

Public Function CalculoDigitoV(IdTercero As String) As
String
Dim peso As String, CifraW As String, Todo As Integer,
resto As Integer, lc As Integer, ld As Integer
On Error Resume Next
If IsEmpty(IdTercero) Then
CalculoDigitoV = ""
Else
Todo = 0
peso = "030713171923293741434753596771"
CifraW = String(15 - Len(IdTercero), "0") & Trim(Str
(IdTercero))
ld = 15
For lc = 1 To 29 Step 2
Todo = Todo + (Val(Mid(peso, lc, 2)) * Val(Mid

ld, 1)))
ld = ld - 1
Next
resto = (Todo Mod 11)
If resto > 1 Then
resto = 11 - resto
End If
CalculoDigitoV = Trim(Str(resto))
End If
Exit Function
ErrCalculoD:
MsgBox "Ha ocurrido un Error Al calcular el digito de
Verificación del Nit : " & vbCrLf & _
IdTercero & vbCrLf & vbCrLf & "Descripción
adicional del Error " & vbCrLf & Err.Number & " " &
Err.Description, vbCritical, App.Title
Exit Function
End Function


Como lo hago para que me funcione en VB.NET para una
pagina Web ?

Ojala me puedan ayudar.
Gracias.

.