Validando o número do cartão de crédito. 

Precisa de uma rotina para validar números de cartão de crédito ? Ta na mão...

1-) Inicie um novo projeto no VB e no formulário padrão insira uma caixa de texto e um botão de comando.

2-) Agora insira o código a seguir no formulário. A função ValidarCartaoCredito é que verifica se o número passado é válido ou não . Se for válido a função retorna True se não retorna False.

Private Function ValidarCartaoCredito(ByVal pCardNumber As String) As Boolean
Dim CharPos As Integer
Dim CheckSum As Integer
Dim tChar As String

For CharPos = Len(pCardNumber) To 2 Step -2
  CheckSum = CheckSum + CInt(Mid(pCardNumber, CharPos, 1))
  tChar = CStr((Mid(pCardNumber, CharPos - 1, 1)) * 2)
  CheckSum = CheckSum + CInt(Left(tChar, 1))

  If Len(tChar) > 1 Then CheckSum = CheckSum + CInt(Right(tChar, 1))
Next

If Len(pCardNumber) Mod 2 = 1 Then CheckSum = CheckSum + CInt(Left(pCardNumber, 1))

If CheckSum Mod 10 = 0 Then
   ValidarCartaoCredito = True
Else
   ValidarCartaoCredito = False
End If

End Function

3-) Para chamar a função , insira o código abaixo no evento click do botão de comando - command1 . Ele irá chamar a função passando o número que você informar na caixa de texto text1.text. Este número é uma string.

Private Sub Command1_Click()

If Text1.Text <> "" Then
   If ValidarCartaoCredito(Text1.Text) Then
          MsgBox " O Número do cartão de crédito informado é VÁLIDO "    
    Else
          MsgBox " O Número do cartão de crédito informado é INVÁLIDO "
    End If
End If

End Sub

Agora é só adaptar a função para o seu caso e pronto ...   Até breve !!!