Breaking String

Hi
I have a weather sensor that gives output on serial port in the following format:

$SMWSD,06.9,257,06.4,265,A,R,07.0,267,06.4,275,V,T*45
$SMTHP,+27.0,A,T,80.6,A,H,0998.7,A,P*42
$SMWSD,07.5,257,06.4,265,A,R,07.5,267,06.4,275,V,T*4D
$SMTHP,+27.0,A,T,80.6,A,H,0998.7,A,P*42
$SMWSD,06.9,260,06.4,265,A,R,07.0,270,06.4,275,V,T*47
$SMTHP,+27.0,A,T,80.6,A,H,0998.7,A,P*42

I am able to receive the output in VB6. One information consist of two lines.i-e

$SMWSD,06.9,257,06.4,265,A,R,07.0,267,06.4,275,V,T*45
$SMTHP,+27.0,A,T,80.6,A,H,0998.7,A,P*42

and so on.

I want to extract some required values from the output data.e-g data in red colour

$SMWSD,06.9,257,06.4,265,A,R,07.0,267,06.4,275,V,T*45
$SMTHP,+27.0,A,T,80.6,A,H,0998.7,A,P*42

Then I want to show only required data from contineous incoming data and filter out all irrelevant data in vb6.
I have tried a lot but no success. Can anybody help me in this regard. Thanks in advance.