sGPRSData = _
  "$GPRMC,191410,A,4735.5634,N,00739.3538,E,0.0,0.0,181102,0.4,E,A*19$GPRMB,A," & _
  ".99,L,, Exit,4726.8323,N,00820.4822,E,29.212,107.2,,V,A*69" & _
  "$GPGGA,191410,4735.5634,N,00739.3538,E,1,04,4.4,351.5,M,48.0,M,,*45 "
 
sValue1=Extractstring(sGPRS,"$",2)     ' = 
' GPRMC,191410,A,4735.5634,N,00739.3538,E,0.0,0.0,181102,0.4,E,A*19
 
sValue2= Extractstring(sGPRS,"$",3)     ' = GPRMB,A,9.99,L,, 
' Exit,4726.8323,N,00820.4822,E,29.212,107.2,,V,A*69
 
sValue3= Extractstring(sGPRS,"$",4)     ' = 
' GPGGA,191410,4735.5634,N,00739.3538,E,1,04,4.4,351.5,M,48.0,M,,*45