Sub GPS_NMEA (TimeStamp As Long, Sentence As String)
If Sentence.Contains("$GPGGA") = True AND Sentence.Contains(",M,") = True Then
geoide_pos1 = Sentence.IndexOf(",M,")
geoide_pos2 = Sentence.IndexOf2(",M,",geoide_pos1+1)
geoide = Sentence.SubString2(geoide_pos1+3,geoide_pos2)
End If
End Sub