Avevo scritto a memoria.

codice:
txtTesto.Width = CInt((Me.Width * CInt(0.8 * 100) / 100))