Visual Basic - Cuadros Texto

Necesito saber como puedo poderle el tamaño a un cuadro de texto, atendiendo al numero de caracteres introducidos. Es decir, si meto la palabra "trabajo" tiene 7 caracteres, pues quiero que el cuadro de texto se ajuste a esa palabra.

Como puedo determinar la maxima longitud de caracteres, de un cuadro de texto. Si tengo un cuadro determinado con un tamaño determinado, como hago paraque los caracteres entren justos.

en el evento key_press del textbox (text1) modificariamos la propiedad width, mas o menos:

text1.width= len(text1)*tamaño_caracter

donde tamaño caracter seria un entero, alredor de 20 para una fuente de 14. Un saludo.