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) <--- Not two bytes
         'txtDCVolt.Text = ""   ******Here?******
         If NewChar = Chr$(13) Then
         txtDCVolt = txtDCVolt & rxBuffer  <-- Need & vbCrLF ?
        Else
        rxBuffer = rxBuffer & NewChar '& ""
        'txtDCVolt.Text = ""   ******Here?******
    End If
    End Select
'End If
End Sub