visual basic 2013 com port เวลานำราคาไปแสดงบนจอแล้วทำไม เวลาเลือกสินค้าแล้วทำไม่สลัดบรรทัดกันครับ ใครรู้ช่วยบอกที่ครับ

' ล้างจอ
' _max = จำนวนตัวอักษรที่จอรุ่นนั้นรับได้
' _buffer(_max) As Char
Public Sub Clear()
        For i As Integer = 0 To _max - 1
            _buffer(i) = " "    '<< 1 space
        Next
        Write(_buffer, 0, _buffer.Length)
End Sub

' เขียนข้อความบนจอ
Public Sub SendMessage(ByVal pLine As Integer, ByVal pText As String)
' pLine = บรรทัดที่จะแสดงข้อความ
' pText = ข้อความที่จะแสดง
        Try
            If _serial.IsOpen = False Then
                _serial.Open()
            End If

            Dim ch() As Char = pText.ToCharArray()

            pLine = pLine Mod 2

            For i As Integer = 0 To (_max / 2) - 1
                If i < ch.Length Then
                    _buffer(((_max / 2) * pLine) + i) = ch(i)
                Else
                    _buffer(((_max / 2) * pLine) + i) = " " ' << 1 space
                End If
            Next

            Write(_buffer, 0, _buffer.Length)

           If _serial.IsOpen Then
                _serial.Close()
            End 
        Catch
        End Try
End Sub

Private Function Write(ByVal pBuffer() As Char, ByVal pOffset As Integer, ByVal pCount As Integer) As Boolean
        Try
            _serial.Write(pBuffer, pOffset, pCount)
            '_serial >> System.IO.Ports.SerialPort
            Return True
        Catch
        End Try
        Return False
End Function

' เรียกใช้งาน
 If _objQue.Monitor.PortName <> "" Then
            _objQue.Monitor.Clear()
            _objQue.Monitor.SendMessage(0, "Receive: " + Me.lblReceiveMoney.Text)
            _objQue.Monitor.SendMessage(1, "Change:  " + Me.lblChangeMoney.Text)
 End If