运行代码：
Private Sub Command1_Click()
Dim myrows '定义段落数
Dim myarray() As String '声明数组，保存文本
With Text1
myarray = Split(.Text, vbCrLf)
If Text1.Text <> "" Then
myrows = UBound(myarray) + 1 '返回段落数
Else
MsgBox "请输入文字内容", , "错误提示"
Exit Sub
End If
MsgBox "段落数：" & myrows, , "段落统计"
End With
End Sub
学习总结：
1、With语句：在一个单一对象或一个用户定义类型上执行一系列的语句
例如，要改变一个对象的多个属性，可以在 With 控制结构中加上属性的赋值语句，这时候只是引用对象一次而不是在每个属性赋值时都要引用它。下面的例子显示了如何使用 With 语句来给同一个对象的几个属性赋值。
With MyLabel
.Height = 2000
.Width = 2000
.Caption = "This is MyLabel"
End With
注意：当程序一旦进入 With 块，object 就不能改变。因此不能用一个 With 语句来设置多个不同的对象。
2、Split分裂，常用语法结构：
Split(expression[, delimiter[, count[, compare]]])
Split(<字符串>，[<分割符>]，[返回个数]，[比较方式])。
返回一个下标从零开始的一维数组，它包含指定数目的子字符串。
