[Resolved] VB6 with Uno serialprint to text box

Projects Interfacing w/ Software on the Computer
21

Stuck after 2 hours of try and error.

                    strInput = Mid$(strBuffer, 1, intPos - 1)
                    temp1 = InStr(strInput, "A1:") 'gives a position result
                    
                    If temp1 <> 0 Then 'there is a separator in the buffer
                        temp2 = Mid$(strInput, 1, temp1 + 6) 'put A1: seperator and 4 extra characthers in the string
                        temp3 = InStr(temp2, "A1:") 'locate seperator A1:
                        ingLen = Len(temp2) 'measure the length of the whole string
                        'temp4 = Left$(temp2, 1, ((ingLen - temp3)+3)  'remove all left from the seperator A1: and the seperator
                        'check for the first VBtab from the left
                        'remove the VBtab including all to the right
                        'data is left put it in a textbox
                    Else
                        Text1.Text = 0
                    End If

At commented line

'temp4 = Left$(temp2, 1, ((ingLen - temp3)+3)  'remove all left from the seperator A1: and the seperator

I got stuck as the Left$ is not accepted.
The rest of the line is also faulty but I first need the Left$ function to work.
Newbie error?

Paco