VB Help Again, Please

No problem sun7dots... :) You should really make yourself a program which tells the ascii codes; I've alredy got one. :) I guess the easiest one would be like this:

Code:

---

For I = 33 to 128
    Print I, chr(I)
Next I

---

Because before asc(33) they are only those special command characters which I think would appear as black boxes.
But if you do the "Pl = Ucase(Pl)" -part, you will only have to check that it's between 65 and 90 - this is what I forgot to mention at my last message.

Quote:

---

Originally posted here by ZeroOne
No problem sun7dots... :) You should really make yourself a program which tells the ascii codes; I've alredy got one. :) I guess the easiest one would be like this:

Code:

---

For I = 33 to 128
    Print I, chr(I)
Next I

---

Because before asc(33) they are only those special command characters which I think would appear as black boxes.
But if you do the "Pl = Ucase(Pl)" -part, you will only have to check that it's between 65 and 90 - this is what I forgot to mention at my last message.

---

Thanx for giving me this program. To write SO complicated code is really over my skills so I will use this one you posted if you won't mind. :)

Thank you so much for the help, everyone. Sun7dots, your code worked perfectly.. That was exactly what I was trying to figure out..

Code:

---


(Chr(Mid(P1, x, 1)) >= (Chr(65))) And (Chr(Mid(P1, x, 1)) <= (Chr(91)))

---

I think that was messing me up, actually.. I'm sure of it. It wouldn't compile the code. Well.. Regardless, the program is finished.. And now I know where I messed up. Thanks again, everyone.

Don't forget that in my code is a little mistake in asc codes... I forgot special characters that are around number 90. So my code works but better and absolutly correct is this one posted by ZeroOne:

If (Asc(Mid$(P1, x, 1)) >= 65) And (Asc(Mid$(P1, x, 1)) <= 90) Or (Asc(Mid$(P1, x, 1)) >= 97) And (Asc(Mid$(P1, x, 1)) <= 122)

If you ever have some other question you know what to do:)