如何实现text宽度随输入内容长度自动变

Private Sub Text1_KeyPress(KeyAscii As Integer)
Text1.Width = Len(Text1.Text) * 130'字体大小不同×的数也不一样
End Sub