In vb it is roughly 90 pixels per character for width attribute of text boxes (Providing it is the default font and size) so you could do the following to solve your problem

Code:
Private Sub Text1_Change()
    Text1.Width = Len(Text1) * 90
End Sub
This Harshly does what you ask for

Hope this helps

Ian