Returning a character from a string

[abduljaleel.mca]

Hi,

I need to return each char from a string.

A1 contains "London"

StrLen = Len(Cells(1, 1).Value)
For q = 1 To StrLen
ch = Left(Cells(1, 1), q)
msgbox "Letter" & ch
next q

In the first loop run (q=1) it returns 'L' but in the second run (q=2) it returns 'Lo', however I need only 'o' in the second run.

London is an example text, the length of the string will vary.

Please help

Thanks
Abdul

[SDCh]

use mid() function

Please Login or Register  to view this content.

[abduljaleel.mca]

It works great. Thanks

[Pepe Le Mokko]

Your post does not comply with Rule 3 of our Forum RULES. Use code tags around code.

Posting code in [CODE]Please [url=https://www.excelforum.com/login.php]Login or Register [/url] to view this content.[/CODE] tags makes your code much easier to read and copy for testing, it also maintains VBA formatting.

Highlight your code and click the # icon at the top of your post window. More information about these and other tags can be found here