Dim data As String = _
          "$GPRMC,191410,A,4735.5634,N,00739.3538,E,0.0,0.0,181102,0.4,E,A*"
        Dim bytes As Byte() = System.Text.Encoding.ASCII.GetBytes(data)
        Dim sum As Integer = 0
        For Each b In bytes
            sum += b
        Next
        sum = sum Mod 256

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist