Hallo for_ro,

ich habe Deinen Code so übernommen und wie folgt ergänzt:

Code:
Do
   If Gps_complete = 1 Then
      Gps_complete = 0
      Word_count=Split(Gps_string, Gps_words(1), ",")    'Jetzt hast du alle Wörter in einem Array
      'hier kommt die Auswertung hin

      If Gps_words(1) = "$GPRMC" Then

         Lcdat 1 , 1 , "Zeit: " ; Val(gps_words(3))
         Lcdat 2 , 1 , "Lat: " ; Val(gps_words(4))
         Lcdat 3 , 1 , "N/S: " ; Asc(gps_words(5))
         Lcdat 4 , 1 , "Lon: " ; Val(gps_words(6))
         Lcdat 5 , 1 , "E/W: " ; Asc(gps_words(7))
         Lcdat 6 , 1 , "Speed: " ; Val(gps_words(8))
         Lcdat 7 , 1 , "Course: " ; Val(gps_words(9))
         Lcdat 8 , 1 , "Datum: " ; Val(gps_words(10))

      End If

   End If

Loop
Es bleibt hier leider nur "Go" stehen, sonst passiert nichts.
Die "Waitkey" Variante funktioniert bei mir zwar, ist für mein Projekt aber unbrauchbar.

Kannst Du mir noch einen Tip geben WIE ich diesen Code ans laufen bekomme ? Es wäre genau das was ich suche.

Danke Dir !

Gruß
Jens