Text Box Line Count

[jim mcnamara]

[code]
'VB only way
function linecount() as long
Dim a() as string
a = Split(rtb1.Text,vbcrlf)
linecount=ubound(a+1)
end function