Converting string to ASCII number

Question

I am trying to write a function using Excel VBA to convert a string to its respective ASCII number. For example:

"ABCD" => "65666768"

I have written this code but it's failed to do the conversion:

Public Function asciien(s As String) As String
' Returns the string to its respective ascii numbers
   Dim i As Integer

   For i = 1 To Len(s)
      asciien = asciien & CStr(Asc(Mid(s, x, 1)))
   Next i 

End Function

neuralgroove · Accepted Answer · 2015-11-27 19:41:58Z

3

This line

asciien = asciien & CStr(Asc(Mid(s, x, 1)))

should read

asciien = asciien & CStr(Asc(Mid(s, i, 1)))

"x" has no value

answered Nov 27, 2015 at 19:41

neuralgroove

5804 silver badges13 bronze badges

Sign up to request clarification or add additional context in comments.

3 Comments

darknumbers Over a year ago

Thanks for pointing out the error. It tried the code again but it still gives me "#NAME" value error.

neuralgroove Over a year ago

Check that you have the function name spelled right on the sheet and also that the code for the function is not in a sheet object, it should be in its own module

darknumbers Over a year ago

Thanks! I forgot to enable the macro. Now the problem is resolved. Thank you very much!

Collectives™ on Stack Overflow

Converting string to ASCII number

1 Answer 1

3 Comments

Your Answer

Linked

Hot Network Questions

Collectives™ on Stack Overflow

1 Answer 1

3 Comments

Your Answer

Sign up or log in

Post as a guest

Linked

Related