I have problem when running the application written in VB6 in certain PC. Runtime error 5 - Invalid Procedure or Argument call.

The code as below:

passval = "123456"
chrpass = ""
for i = 1 to 6
chrpass = chrpass + chr(asc(passval,i,1))
next

stringpass = "xxxxxx..." ' 80 character in this stringpass
len_str = len(stringpass)

int_mod = Modulus(len_str, 6)
chrtoread = 1
X = 1

For cycle = 1 To Int(len_str / 6)
For intbyte = 1 To 6
sal_read = Ebcdic(Mid(stringpass, chrtoread, 1)) '-->user-defined function, no error
pw_read = Asc(Mid(chrpass, intbyte, 1)) '-->suspect error occurred here
EOr_Read = Int(sal_read) Xor Int(pw_read)
EOrPass = EOrPass + Chr(EOr_Read)
chrtoread = chrtoread + 1
Next
Next

Any idea to solve this??

The ASC Function you have used accepts only one arguments

For example

asc("a") - 97

also check if you need the following

Chr(Asc(passval))

Cheers
Shasur

__________________
C# Code Snippets (http://www.dotnetdud.blogspot.com)

VBA Tips & Tricks (http://www.vbadud.blogspot.com)

The ASC function at the begining OK!..

The error occured at the bottom ASC function I guest. only few PC encounter this.

Anyone know which dll called for ASC() / mid()?

Both are part of MSVBVM60.DLL

cheers
Shasur

__________________
C# Code Snippets (http://www.dotnetdud.blogspot.com)

VBA Tips & Tricks (http://www.vbadud.blogspot.com)

Hi there.. just to be sure, can you just put an on error at top, use option explicit to gave types to your variables, and also at the error throw out the error line??? to do that, just put a line number at the beggining of each line (like 10:, 20:, etc.) and at the error just printout erl (which has the error tag, in this case a number).

Also all this function smell very fishy.. You are just encriptyng something that will return always the same value, besides that you are doing a lot of for...next that are totally unnecesary.

__________________
HTH

Gonzalo

================================================== =========
Read this if you want to know how to get a correct reply for your question.
(Took that from Doug signature and he Took that from Peter profile)
================================================== =========
My programs achieved a new certification :
WORKS ON MY MACHINE
================================================== =========
I know that CVS was evil, and now i got the proof.
================================================== =========