Copy one string to an other, one character at a time

[chuckchuckit]

Code below does not append 2nd copied character. I need it to append to StringTwo, instead of overwriting.

Dim StringOne, StringTwo
StringOne = "Word"
 
StringTwo = Mid(StringOne, 1, 1) 'This copies the 1st character OK
StringTwo = Mid(StringOne, 2, 1) 'This copies the 2nd character OK

I will be doing other things to StringTwo inbetween each character like adding an other character or space. And is the reason I need to know how to "append" one character at a time.
Thanks.

Chuck

 

[Leith Ross]

Hello chuckchuckit,

You can append the second character like this...

StringTwo = StringTwo & Mid(StringOne, 2, 1)</pre>

By the way, your signature looks like reMorse, is it?

Sincerely,
Leith Ross

 

[chuckchuckit]

Your code works great. Knew it had to be something simple I was not finding.

LOL --wouldn't say reMorse, but perhaps VBAMorse (for Excel).

Appreciate your code. No reMorse there...

Thanks much!

Chuck