VBA code Help Required

[TheBuGz]

RegNameInLen = Len(RegNameIn)
RegEmailInLen = Len(RegEmailIn)
RegCodeInLen = Len(RegCodeIn)

RegNameFirLet = Mid(RegNameIn, 1, 1)
AtPos = InStr(1, RegEmailIn, "@")
FirLetPos1 = InStr(1, RegCodeIn, RegNameFirLet)
FirLetPos2 = InStrRev(RegCodeIn, RegNameFirLet)

Code1 = Mid(RegCodeIn, 1, FirLetPos1 - 1)
DecodePriv = Code1 / (RegNameInLen + AtPos + RegEmailInLen)

If DecodePriv <> PrivCode Then GoTo Fail:

Code2 = Mid(RegCodeIn, FirLetPos1 + 1, FirLetPos2 - (FirLetPos1 + 1))
DecodeNum = Code2 / AtPos
RemNum = Code2 Mod AtPos
If RemNum <> 0 Then GoTo Fail:

Code3 = Mid(RegCodeIn, FirLetPos2 + 1)
DecodeType = Code3 / RegEmailInLen
RemType = Code3 Mod RegEmailInLen

If RemType <> 0 Then GoTo Fail:

I want to enter the above code in my workbook


kindly help me how to check the code

I want the user to email me his
Name= Tom Hanks
Email =tomhanks@msn.com

and I will send the code to to him

How to Kindly help.

 

[TheBuGz]

Experts Help required

 

[parry]

Hi, do you mean you want to email a workbook? The code you have posted seems incomplete to me - you will have to post it all and be clearer on explaining what you want.

 

[TheBuGz]

Thank you Parry you were late to reply i have done it by myself.

Thanx a Lot