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
         If NewChar = Chr$(13) Then
         txtDCVolt = rxBuffer
         LogFile (rxBuffer) <- Write buffer to file
         rxBuffer=""  <- Buffer needs to be cleared after xmit complete
        Else
        rxBuffer = rxBuffer & NewChar
    End If
    End Select
'End If
End Sub