dim strIn as string
dim strOut as string
dim i as integer
dim j as integer
dim Temp as string
 
strIn="˜g?˜g?˜g?˜g?˜g?˜g? "
 
for i=1 to len(strIn) step 5
  temp=mid(strIn,i,5)
  for j=1 to 5
    strout = strout & cstr(asc(mid(Temp,j,1))) & "  "
  next j
  strout=strout & vbnewline
next i
 
Text1.Text=strOut

____________________________
Heimschmiede.de.vu