Hallo Crazy Harry und recycle,
vielen Dank für den Tip. Nach ein paar weiteren Überlegungen hier nun die Lösung:
-------------------------------------------------------------------------------------
$regfile = "m32def.dat"
$crystal = 16000000
$framesize = 32
$swstack = 32
$hwstack = 32

Dim A As String * 20
Open "Com1:9600,8,N,1" For Output As #1 ' COM 1 Output
Open "Coma.3:4800,8,N,1,inverted" For Input As #2 ' GPS-Input

'$GPRMC,191410,A,4735.5634,N,00739.3538,E,0.0,0.0, 181102,0.4,E,A*19

Do
A = Waitkey(#2);
Print #1 , Chr(A);
Loop
Close #1
Close #2
End 'end program
-----------------------------------------------------------------------------------
Die empfangenden Daten sehen nun wie folgt aus:
$GPRMC,003446.872,V,0000.0000,N,00000.0000,E,,,270 102,,*1A
$GPRMC,003447.872,V,0000.0000,N,00000.0000,E,,,270 102,,*1B
$GPRMC,003448.871,V,0000.0000,N,00000.0000,E,,,270 102,,*17
$GPRMC,003449.871,V,0000.0000,N,00000.0000,E,,,270 102,,*16
$GPRMC,003450.871,V,0000.0000,N,00000.0000,E,,,270 102,,*1E
$GPRMC,003451.871,V,0000.0000,N,00000.0000,E,,,270 102,,*1F
$GPRMC,003452.871,V,0000.0000,N,00000.0000,E,,,270 102,,*1C
--------------------------------------------------------------------------------
Nun kann ich mit der Auswertung dieser Daten beginnen.

Peter