This code will check a credit card number using the LUHN algorythim (so far i am the only on using this thing right!!).
Inputs
Simple:
Call "ValidateCreditCardNumber" with the credit card number as a string... eg
===============================================
Dim ccReturn As CreditCardStats
ccReturn = ValidateCreditCardNumber("01234567890")
===============================================
Returns
The function ValidateCreditCardNumber will return a custom Data Type containing:
1. Credit card checksum
2. Credit card checksum total (according to LUHN)
3. Is Valid Number
4. Credit card company
i) VISA
ii) Mastercard
iii) American Express
iv) Diners Club / Carte Blanche
v) JCB
vi) Discover
vii) enRoute