称设置文本框 的属性 Scrollbars为 vertical为垂直。然后允许多行，并设置Enter回车键的行为（Access设置为文本中新行即可）
1，设置文本框Multiline = true
2，设置文本框Wordwarp = true
2，设置文本框Enterkeybehavior= true
读取每行的值
只有在MuiltLine属性为True的前提下TextBox才有多行，由于在这个控件中输入文本时换行是Ctrl+Enter实现的，所以用Split(TestBox.Value,Chr(10))就可以分割文本并保存在数组中：
Private Sub TextBox1_LostFocus()
If Len(TextBox1.Value) > 0 Then
arr = Split(TextBox1.Value, Chr(10))
'激活下面的语句可以在A列显示数组arr
'Range("a1").Resize(UBound(arr) + 1) = Application.WorksheetFunction.Transpose(arr)
End If
End Sub
