运行代码：

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(<字符串>，[<分割符>]，[返回个数]，[比较方式])。

返回一个下标从零开始的一维数组，它包含指定数目的子字符串。