Dim LowerChars, UpperChars, theByte as integer
Dim CharArr() as String = Split(“123abc123ABCD”,””)
For each theChar as String in CharArr
theByte =Asc(theChar)
LowerChars = LowerChars + (thebyte\97) – (thebyte\123)
UpperChars = UpperChars + (thebyte\65) – (theByte\91)
Next
Dim LowerChars, UpperChars, theByte as integer
Dim CharArr() as String = Split(“123abc123ABCD|”,"")
Dim UpperCaseStart as Integer = Asc(“A”)
Dim UpperCaseEnd as Integer= Asc(“Z”) + 1
Dim LowerCaseStart as Integer = Asc(“a”)
Dim LowerCaseEnd as Integer = Asc(“z”) + 1
For each theChar as String in CharArr
theByte =Asc(theChar)
LowerChars = LowerChars + (thebyte\LowerCaseStart) - (thebyte\LowerCaseEnd)
UpperChars = UpperChars + (thebyte\UpperCaseStart) - (theByte\UpperCaseEnd)
Next