---

i = len(text1.text)
for x = 1 to i
text2.text = text2.text + mid(asc(text1.text), x, 1)
next


hvad er der i vejen med det her ???

den skriver ikke asciikoden for dem allesammen... men kun for det første
tegn

---

i = Len(Text1.Text)
For x = 1 To i
Text2.Text = Text2.Text & Asc(Mid(Text1.Text, x, 1))
Next i

burde klare tricket ;)

---

diztort <diztort@hotmail.com> wrote:
> i = len(text1.text)
> for x = 1 to i
> text2.text = text2.text + mid(asc(text1.text), x, 1)
> next
>
> hvad er der i vejen med det her ???
>
> den skriver ikke asciikoden for dem allesammen... men kun for det
> første tegn
Hej diztort

Prøv med
i = len(text1.text)
for x = 1 to i
text2.text = text2.text & asc(mid(text1.text, x, 1))
next

Hvis du ønsker at få alle asciikoden for alle bogstaver skrevet
direkte efter hinanden.
--
Mikkel Bundgaard
IT University of Copenhagen
http://officehelp.gone.dk
Codito, Ergo Sum

---

duuuuh.. det var bare et plus o til et & ..(jeg havde i mellemtiden fundet
ud af det med rækefølgen på mid og asc....)

taktaktak