【VB技巧】VB循环逐行读取TextBox控件内容

VB循环逐行读取TextBox控件内容：

Dim A() As String                                                           '定义数组
A() = Split(Text1.Text, vbCrLf)                                             '以换行符分割为数组
For Each S In A()                                                           '枚举整个数组A()赋值给S
    Debug.Print S
Next