Prova con l'istruzione replace:

Text2.text=Replace(Text2.text,"A","B")

questo pezzo di codice non fa altro che sostituire in text2 tutte le "A" con "B" e assegnarle a Text2.text