hey penguin. The process would be the same for either version.
Theres 2 ways i use to do it, which way you should use depends on if you know how many variables are within the packet.
First Way -
Knowing how many
For I = 1 to Len(Packet$)
Dim A(9)
B = 0
` Find the breakers and save the position
If Mid$(Packet$,A)="*"
Inc B
A(B)=I
EndIf
Next I
` Now to get the values
` I'm Only going to do the first 2
Dim Pack(B)
` Value 1
Pack$(1) = Left$(Packet$,A(1)-1)
` with out the -1 the very last character would be the "*"
` Value 2 - pretty much the same
TEMP$ = ""
Temp$ = Left$(Packet$,A(2)-1)
Pack$ = Right$(Temp$,(A(2)-1)-A(3))
` Repeat till End
The Second way -
Not knowing the total variables
Its pretty much the same, but you need to count the "*"s first
For I = 1 to Len(Packet$)
If Mid$(Packet$,I)="*" then Inc B
Next I
Dim A(B)
`use code from above (may need to modify it a bit)