VBA: How to find a symbol in string by position number?

[Fixed]

Hello!

How to add to HappySymbol the 5th symbol of HappyText?

Dim HappyText as String
Dim HappySymbol as String
HappyText = "Hello friends!"
HappySymbol = "o" '5th symbol in HappyText

Thank you in advance.

 

[Roxxien]

Hello,

Mid is the function you seek.

HappySymbol = Mid(HappyText,5,1)

 

[mole999]

out of curiosity what will you be displaying this with, the emoticon just shows as colon and closed bracket in systems that don't process it

 

[Fixed]

Roxxien, thank you, I believe, it will help!

 

[Fixed]

mole999, sorry I'm afraid I don't understand what you mean.