Dim CountEnter As Integer
Dim MidString As String
For i As Integer = 1 To Len(RichTextBox1.Text)
MidString = Mid(RichTextBox1.Text, i, 1)
If Regex.Match(MidString, "/n").Success Then
CountEnter = CountEnter + 1
End If
Next
MsgBox(CountEnter)