Thank you soo much Wayne.
I had to modify it to:
ptr = InStr(1, Temp, ",")-1
If ptr > 0 Then
Field1 = Left(Temp, ptr)
Temp = Mid(Temp, ptr+3, Len(Temp) - ptr)
else
field1 = temp
if ptr > 0 then Temp = Mid(Temp, ptr+3, Len(Temp) - ptr) else temp = "N/A"
if ptr > 0 then more=1 else more = 0...