《文本输入到TEXT里的长度超过TEXT宽度时而不能自动换行的问题》

现在，就只剩下文本输入到TEXT里的长度超过TEXT宽度时而不能自动换行的问题，从而产生了需要拖动鼠标拉左右滚动条的应该是最后一个尚未解决的问题

无论粘贴文本于TEXT里，还是从控件BOX里打开，均不能解决该问题！

尽管TEXT属性已经调整为MUTILINE了！

（粘贴文本于TEXT里，不需代码）
从控件BOX里打开的原代码如下：

Private Sub File1_Click()
Dim aStr As String
Dim strFile As String
strFile = File1.Path
If Len(File1.Path) <> 3 Then '不是根目录
strFile = strFile & "\"
End If
strFile = strFile & File1.FileName
Open strFile For Input As #1
While Not EOF(1)
Line Input #1, aStr
Text1.Text = Text1.Text + aStr & vbCrLf + Chr$(13) + Chr$(10)
Wend
End Sub