Hilfe beim Source-Code-Problem für den GPS-Empfang

[holzi]

Moin, moin hier an alle,
ich habe mit dem folgenden Code ein Problem. Rufe ich diese Sub auf, bleibt das Programm bei "Input #2 , GpsDaten" einfach stehen. Sobald die IF-Bedingung erfüllt ist, gebe ich hier für die Suche der Fehlerquelle mittels Print den Wert A aus. Anschlissend hängt das Programm. Es sieht mir danach aus, dass das Input nicht in der Lage ist, die Daten von #2 anzunehmen.
Wenn diese Sub hingegen als reines Programm (nach den entsprechenden Änderungen) ausgeführt wird, ist alles OK, d.h. die GPS-Daten werden empfangen und über die serielle Schnittstelle ausgegeben.
Ich verstehe es nicht, dass das Programm als Sub nicht funktioniert.
--------------------------------------------------------------------------------------------------------------------

Sub GPS_EMPFANG()
    Dim GpsDaten As String * 75
    Dim A As Byte
    Dim Typ As String * 5
    Dim Gefunden As Byte
    Dim Beginne As Integer

    Open "Coma.3:4800,8,N,1,inverted" For Input As #2        ' Port A3 als  Com öffnen fuer GPS-Empfang    '
    Open "Com1:9600,8,N,1" for Output As #1                  ' COM 1 öffnen fuer RS232-Kommunikation '
    Do
      Do
          A = Inkey(#2)
          Print #1 , A;
          If A = 36 Then
             Print #1 , "Problem"; ' Ausgabe zur Fehlersuche
             Input #2 , GpsDaten ' hier bleibt das Programm hängen
          End IF
          Typ = Mid(GpsDaten , 1 , 5)
       Loop Until Typ = "GPRMC"
       If Mid(GpsDaten , 18 , 1) = "V" Then
          Print #1 , "No gps-satellite"
       Else
          Print #1 , Mid(GpsDaten , 1 , 75)
       End If
    Loop
    Close #2
    Close #1
 End Sub

------------------------------------------------------------------------------------------------------------------------
Kennt hier jemand das Problem und kann mir einen Tip geben.

mfg Peter