Usa l'evento "Text1_Change()" del tuo textbox.
Ogni volta che cambia il testo contenuto nella casella assegni il valore alla variabile:

codice:
Private sub Text1_Change()
    TuaVariabile=text1.text
End Sub