VB For Next zählt index doppelt hoch

    Private Sub DataReceivedHandler(sender As Object, e As SerialDataReceivedEventArgs)

        Dim recBuffer(200) As Char

        Dim i As Integer

        Dim sp As SerialPort = CType(sender, SerialPort)

        Dim BytesToRead As Integer

        i = 0

        For i = 0 To 200

            recBuffer(i) = vbNullChar

        Next

        BytesToRead = sp.BytesToRead

        sp.Read(recBuffer, 0, BytesToRead)

        i = 0

        For n As Integer = 0 To BytesToRead - 1 Step 1

            inBuffer(RXinPtr) = recBuffer(n)

            n = n + 1

            If inBuffer(RXinPtr) = vbLf Then

                NewSerialData = True

            End If

            RXinPtr = RXinPtr + 1

            If RXinPtr > 200 Then

                RXinPtr = 0

            End If

        Next

    End Sub