Does anyone know how to encode a word ?

[sealife24]

Does anyone know how to encode a word ? like you type :Aretha
label will display :
A=65 r=114 e=101 t=116 h=104 a=97

I do use the loop,but it only displays the even number of letter, can you tell me the wrong in loop plz?...........sorry to trouble you..

strWord = CStr(txtWord.Text)
intLength = Len(strWord)

For intCount = 1 To intLength
intCount = intCount + 1
strRemaining = Mid(strWord, intCount, 1)
strCharacter = Left(strRemaining, 1)
intNumber = Asc(strCharacter)
strFirst = strCharacter & " = " & intNumber
strAscII = strAscII & " " & strFirst
lblCode.Caption = strAscII
Next intCount

 

[月下独酌]

for loop automatically increments..
take away ur intCount = intCount + 1
it'll work

 

[sealife24]

hi

thank you so much ,i got it..thanks!!