Algoritmo Luhn

[bebrother]

Pessoal, alguém tem um código do algoritmo Luhn...consegui um VB.net e mudei algumas coisas, mas infelizmente não estou conseguindo fazer funcionar. Alguém possui algum material ou partes do código?

Abaixo segue como está o meu código:

Function Verificacartaodecredito()    

    Dim CartaodeCredito As String
    Dim Digito (16) As Integer
    Dim DuploDigito (2) As String
    Dim SomaCartaodeCredito As Integer    

    'primeira parte do cálculo
    For i = 15 to 1 step-2
    
         Digito(i) = Mid(CartaodeCredito, i, 1)
         
         Digito(i)  =  Digito(i) * 2
         
         If     Digito(i) > 9 Then
         DuploDigito(1) = Mid(Digito(i),1,1)
         DuploDigito(2) = Mid(Digito(i),2,1)
         Digito(i) = Convert.ToInt32(DuploDigito(1)) + Convert.ToInt32(DuploDigito(2))         
        End If
        
         SomaCartaodeCredito = SomaCartaodeCredito + Digito(i)
         
    Next

    'segunda parte do cálculo
    For i = 2 To 16 Step 2
        Digito(i) = Mid(CartaodeCredito, i, 1)
        SomaCartaodeCredito = SomaCartaodeCredito + Digito(i)
    Next

    If SomaCartaodeCredito Mod 10 = 0  Then 
    Verificacartaodecredito = 1
    Else
    Verificacartaodecredito = 0   
    End If   
    
End Function