Private Sub MSComm1_OnComm()
Dim NewChar As String

' If comEvReceive Event then get data and display
Select Case MSComm1.CommEvent
    Case comEvReceive
         NewChar = MSComm1.Input ' Get data (2 bytes)
         If NewChar = Chr$(13) Then
            'txtDCVolt = txtDCVolt & rxBuffer ' Old Text + New Text
            <B>txtDCVolt = rxBuffer              ' Just New Text</B>
         Else
            rxBuffer = rxBuffer & NewChar '& ""
         End If
    End Select
'End If
End Sub