=code [Excel macro]

option explicit

sub code_()

  cells(1.1).value = "abcxyz012789ABCXYZ"

 ' msgBox(len(cells(1,1).value))

 dim i as long
 for i = 1 to len(cells(1,1).value)

   dim c as string

   c = mid(cells(1,1),i,1)

   cells(i+1,1).value = c
   cells(i+1,2).value = "=code(" & cells(i+1,1).address & ")" ' code gets the ascii for a character

 next i

end sub