How Can I Take The First Letter Out Of text1 and put it in to my I

[XxEvilxX]

Look At THis
I Put

Dim I
Dim B
I = text1.text
b = right$(i,1)
but i just want to take the first letter out and put it into b and leave the other