Se devi salvarti solamente il primo carattere, puoi fare:

a = Left(Text1.text,1)

altrimenti, se vuoi copiare un carattere intermedio, puoi usare la funzione Mid:

a = Mid(Text1.text,X,1)

Dove X è la posizione del carattere da copiare.