dim variabile1 as variant
variabile1 = text1.text

'ora variabile1 contiene il valore della casella di testo text1