vb 取text行数

vb取text行数
'取text行数 空行也算为一行?
Private Sub Command1_Click()
arr = Split(Text1.Text, vbCrLf)
MsgBox (UBound(arr) + 1)
End Sub

'取text行数 空行不算行?
Private Sub Command1_Click()
arr = Split(Text1.Text, vbCrLf)
MsgBox (UBound(arr))
End Sub