Richtextboxの行数取得

Dim txtLine() As String

txtLine = TextBox1.Lines

'2行目

msgbox("２行目の文字例" & ControlChars.NewLine & txtLine(1))