VB 判断 text 多少行，VB 判断 text 行数，VB 获取 text 多少行，VB 获取 text 行数，VB 计算 text 多少行，VB 计算 text 行数，VB text 多少行，VB text 行数，VB 读取 text 第N行，VB 读取 text 指定行，VB 获取 text 第N行，VB 获取 text 指定行，VB 获得 text 第N行，VB 获得 text 指定行，VB text 第N行，VB 循环 读取 Text，VB 读取 Text，VB Text。

VB判断text多少行：

Dim T() As String
T() = Split(Text1.Text, vbCrLf)
MsgBox "共" & UBound(T) + 1 & "行"

VB读取text第N行：

Dim T() As String, N
N = 1
T() = Split(Text1.Text, vbCrLf)
MsgBox "第" & N & "行的内容为: " + T(N - 1)

VB循环读取Text：

Dim T() As String, I
T() = Split(Text1.Text, vbCrLf)
For Each I In T() '枚举整个数组赋值给I
    Debug.Print I
Next