Sub ReadCommPC()
Dim COMfile As Integer
Dim COMstring As Variant
Dim baudrate As Long
Dim record_cat As Variant
Dim record As String * 1
' Dim record As String
Dim emptyRecord As String * 1
COMport = "COM3" 'Enter the COM port here.
baudrate = 9600 'Enter the baud rate here.
'Open COM port with baud rate, no parity, 8 data bits and 1 stop bit
COMfile = FreeFile
COMstring = COMport & ":" & baudrate & ",N,8,1"
' Open COMstring For Random As #COMfile Len = 1
Open COMstring For Random As #COMfile Len = 1
record = ""
record_cat = ""
Do
DoEvents 'Don't lock up excel while waiting
Get #COMfile, , record 'data is read in 1 character at a time
If record <> "," And Asc(record) <> 13 And Asc(record) <> 10 And record <> emptyRecord Then
record_cat = record_cat & record
End If
If Asc(record) = 13 Then ' if carriage return
MsgBox (Trim(record_cat))
record_cat = ""
record = ""
ElseIf record = "," Then ' if comma
MsgBox (Trim(record_cat))
record_cat = ""
End If
Application.Wait 20 'sleep 20
Loop
Close #COMfile
End Sub