求文本中求回车的个数

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)