Post con tag count

private sub countlines(byval rtb as richtextbox)
          dim count as string
          count = rtb.lines.count
          msgbox(count)
end sub