VB6统计列表有多少行，封装函数分享

        Public Function hangtongji(ByVal yy As String)    '统计有多少行

        On Error GoTo Err1jj:

            If InStr(yy, vbCrLf) = 0 And yy <> "" Then

               hangtongji = "1"

            Else

               Dim tt As String

               tt = Split(yy, Chr(10))(UBound(Split(yy, Chr(10))))

               If tt <> "" Then

               hangtongji = Len(yy) - Len(Replace(yy, Chr(10), "")) + 1

               Else

               hangtongji = Len(yy) - Len(Replace(yy, Chr(10), ""))

               End If

            End If

        Exit Function ' ============ 以下是出错后的处理过程  ？  《彩虹六号：围攻》

Err1jj:

        hangtongji = "0"

        End Function