Solved How to transfer string in character

[Batocanin]

Is there any way to do this
imput 123.45
result '1','2','3','.','4','5'

 

[XPS35]

Use the SPLIT function.

 

[Gasman]

Yes.
Use Mid() function to get each character, within a loop using Len() to determine how big the loop is.
Surround it with ' and add a ,
Concatenate that string to your output string each time.
Remove the final , with Len(outputstring) - 1 and Left() function.

 

[Gasman]

Use the SPLIT function.

How can you split?, don't you need something to split with?

 

[sonic8]

Is there any way to do this
imput 123.45
result '1','2','3','.','4','5'

Do what exactly?
Is result supposed to be an array of characters or a string?

If this is about creating the result as a string, then refer to @Gasman's reply.

If you want an array of characters, you are somewhat out of luck as VBA has no char data type. I believe the closest to the desired result is:

Const inputData As String = "123.45"
Dim resultData() As Byte
   
resultData = StrConv(inputData, vbFromUnicode)

However, this obviously results in an array of bytes. You need to use the Chr()-Function on each element of the array to get the character representation of the byte.

 

[Batocanin]

Thank you Gasman
Mid function with a loop did it perfect.
Thanks once again.

 

[XPS35]

How can you split?, don't you need something to split with?

Good point