En tiedä, että tartteeko joku tätä, mutta tällä voi laittaa vähän enemmän vaihtoehtoja textboxiin.
Private Sub Text1_Change()
Select Case Text1.Text
Case "Koulu"
Msgbox "Pysyn hiljaa..."
Case "Tietokone"
Msgbox "Tietävä kone"
' Sitä voi jatkaa vielä vaikka sata Casea
End Select
End SubAihe on jo aika vanha, joten et voi enää vastata siihen.