It's me again!

I'm curious. There must be a more practical way of acheiving what I want.

SELECT CASE Text1.Text
CASE "AAAA"
Text1.Text="BBBB"
CASE "BBBB"
Text1.Text="CCCC"

etc....

So if my textbox contains "AAAA", it will change to "BBBB" and so on. That's good. But I only gave "AAAA" as an example. What if the content of the textbox is actually much longer than that?

For example:

Select Case text1.text
Case "Shakespeare lived in a village with his wife in Stratford van Avon. However, he was only there for short stretches of time. Most of the time he was in London with a bunch of other playwrights, writing thirty odd plays and hundreds of sonnets"
Text1.Text = "Occassionaly, they would discuss the Queen of the time etc etc..."

How can I have it so it is simply Case 1, Case 2 etc.

Thanks for any help!