'DECLARATIONS
Option Explicit
Option Base 1

Private Sub cmdConfigureSheet_Click()
    frmSetupSubgroupsAndCavities.Show
End Sub

Public Sub cmdStartStop_Click()
Dim cbr As CommandBar
Dim btn As CommandBarControl
Dim btn2 As CommandBarControl
Set cbr = Application.CommandBars("Standard")
'Set btn = cbr.Controls("Stop")
'Set btn2 = cbr.Controls("Go")


Dim strClearBuffer As String
    Select Case Me.comXMComm1.PortOpen
        Case False
            If Not Sheet2.Range("ShowConfigDialog").Value Then frmSelectAndConfigureCommPort.Show
            If frmSelectAndConfigureCommPort.Tag = True Then
                With Me.comXMComm1
                    .CommPort = Sheet2.Range("WhichPort").Value
                    .Settings = frmSelectAndConfigureCommPort.cboRate.Value & ", " & _
                        Left(frmSelectAndConfigureCommPort.cboParity.Value, 1) & ", " & _
                        frmSelectAndConfigureCommPort.cboDataBits.Value & ", " & _
                        frmSelectAndConfigureCommPort.cboStopBits.Value
                    .PortOpen = True
                    .InputLen = 0
                    strClearBuffer = .InputData
                End With
                Me.cmdStartStop.Caption = "Stop collecting data from " & _
                    ThisWorkbook.BuiltinDocumentProperties("Subject").Value
                ActiveSheet.Cells(2, 4).Activate
            End If
            'btn.Visible = True
            'btn2.Visible = False
        Case True
            Me.comXMComm1.PortOpen = False
            Me.cmdStartStop.Caption = "Begin collecting data from " & _
                ThisWorkbook.BuiltinDocumentProperties("Subject").Value
            'btn.Visible = False
           ' btn2.Visible = True
    End Select
    
    strReading = ""
    
    Unload frmSelectAndConfigureCommPort
    
End Sub

Private Sub comXMComm1_OnComm()
On Error Resume Next
Dim strData As String
Dim strJunk As String
Dim lngCharCount As Long
    CommHitter = CommHitter + 1
    Debug.Print Me.comXMComm1.CommEvent, CommHitter
    Select Case Me.comXMComm1.CommEvent
        Case 2
'            If Me.comXMComm1.InBufferCount >= 14 Then
                lngCharCount = Me.comXMComm1.InBufferCount
                With Me.comXMComm1
                    .InputLen = 1
                    strData = .InputData
'                    MsgBox strData & vbCrLf & vbCrLf & _
                        lngCharCount
                    Select Case Asc(strData)
                        Case 13, 10
                            strReading = Trim(RTrim(LTrim(CStr(strReading))))
                            If Not IsNumeric(strReading) Then _
                                strReading = Right(strReading, Len(strReading) - 1)
                            If Not IsNumeric(strReading) Then _
                                strReading = Left(strReading, Len(strReading) - 2)
                            ActiveCell.Value = strReading
'                            ActiveCell.Offset(0, 1).Value = Now
                            ActiveCell.Offset(1, 0).Activate
                            .InputLen = 0
                            strJunk = .InputData
                            strReading = ""
                        Case Else
                            strReading = strReading & strData
                    End Select
                End With
'            End If
    End Select
End Sub