Sub Timer() ' output the current time to cell D13 Range("D12").value = CStr(Time) Dim hPort As Long Dim OpenComPort_Bool As Boolean Dim ReadComPort_Bool As Boolean Dim text_ascii As String Dim data() As String ReDim data(255) Dim i As Integer Dim id_str As String Dim str_len As Integer Dim test As String OpenComPort_Bool = ComPort.OpenComPort("COM4", "baud=38400 parity=N data=8 stop=1", hPort) ReadComPort_Bool = ComPort.ReadComPort(hPort, text_ascii, 0) ComPort.CloseComPort (hPort) Worksheets("Tabelle1").Cells(7, 2) = text_ascii Worksheets("Tabelle1").Cells(8, 2) = Len(text_ascii) str_len = Len(text_ascii) For i = 1 To (str_len - 1) data(i) = Mid$(text_ascii, i, 1) Next i If text_ascii = "" Then Else id_str = data(24) + data(25) + data(27) + data(28) + data(30) + data(31) + data(33) + data(34) Worksheets("Tabelle1").Cells(9, 2) = id_str Worksheets("Tabelle1").Cells(10, 2) = Convert.HexToDecimal(id_str) End If text_ascii = "" End Sub