我认为不太难，可就是做不出来。

Question

一个笨方法：先设定文本框为一行字符高度，并设置成可以换行的。
然后通过Keypress事件检测回车键，并在符合条件的时候增加一个字符高度。

Answer 1

调试时先试一下你的文本框的一行放多少个字符正好满，假设是10个字符然后 text1.multiline = true
设置一个判断变量 dim IsFull as Boolean
      IsFull = false
设置一个每行的字符数统计量 dim CNum as integer
                               CNum = len(text1.text)
设置变量保存处始text的高度 dim FirstHeight as integer
                               FirstHeight = text1.height
'''以下是实现代码
private sub text1_change()
if len(text1.text) - Cnum > 9 then 
    text1.height = text1.height + FirstHeight
    Cnum = len(text1.text)
end if
end sub
随手写的，仅供参考

Answer 2

我说的是，比如我执行了下列语句。
text1.text="asdf"+chr(13)+"asdfjk"
执行后，文本框就自动显示为只能显示两行四列的大小。

Answer 3

'我没整理成函数，你已经可以借鉴了Private Sub Command1_Click()
Me.ScaleMode = 3
With Text1
    .Text = "asdf" + vbCrLf + "asdfjk"
    .Width = 6 + (IIf(LenB("asdf") > LenB("asdfjk"), Me.TextWidth("asdf"), Me.TextWidth("asdfjk")))
    .Height = Me.TextHeight("asdfjk") * 2 + 6
End With
End Sub