Dim $z[10]
Dim $dek[10]
$z[0]="t"
$z[1]="I"
$z[2]="5"
$z[3]="w"
$z[4]="L"
$z[5]=";"
$z[6]="}"
$z[7]="\"
$z[8]="="
$z[9]="n"
$x=0
$rangkai=""
For $elementz In $z
    $dek[$x]=Asc($elementz)
    $huruf=Chr($dek[$x]+$x)
    $rangkai=$rangkai & $huruf
    $x=$x+1
Next

MsgBox(64,"11",$rangkai)