Private Sub SPort1_OnRxChar(ByVal Count As Long)
 
    Dim Buff() As Byte
    ReDim Buff(1 To Count)
    Dim i As Integer
    Dim Received As Long
'    txtLog.Text = ""
    Received = SPort1.Read(Buff(1), Count)
    If Not CheckTerminal Then
        For i = 1 To Count
            txtLog.Text = txtLog.Text & Chr(Buff(i))
        Next i
    End If
End Sub