VB6 Find in string

Hi
I'm having trouble converting file formats,
i have this line: time="2013-07-03 17:13:47" id="1" name="ANDY" workcode="0" status="0" authority="0X55" card_src="from_check"


I need it to read: 2013-07-03 17:13:47,1,ANDY,

I have been trying to individually find the values in the "" but im struggling
Any ideas? :beer: