Paul,
What I first did was write in words what I needed. See the notes behind the lines.
Then I started to code and try and error not knowing what I needed on forehand. Yes now all are called temp but they will be changed if all runs as it should.
Why not now? Just my way of working. New Bie error.
The error that the Left$ gives is Type declaration character does not match declared data type.
Do not shoot me, stary eyes from looking at the monitor for a few hours.
Paco
intPos = InStr(strBuffer, vbCrLf)
If intPos <> 0 Then
'
' Yes, there is a complete record
' Extract it from the Buffer and process it
'
Dim posA1 As String
Dim bufferA1 As String
Dim bufferlocA1 As String
Dim temp4 As String
Dim ingLen As String
strInput = Mid$(strBuffer, 1, intPos - 1)
posA1 = InStr(strInput, "A1:") 'gives a position result of the requested seperator
If posA1 <> 0 Then 'there is a separator in the buffer
bufferA1 = Mid$(strInput, 1, posA1 + 6) 'put A1: seperator and 4 extra characthers in the string
bufferlocA1 = InStr(bufferA1, "A1:") 'locate seperator A1:
ingLen = Len(bufferA1) 'measure the length of the whole string
temp4 = Left$(bufferA1, 1, ((ingLen - bufferlocA1) + 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