If OptionInpt = 0 Then 'Wenn die Einstellung "Taster benutzen" aktiv ist,
    Do Until KeyPress = True 'Soll bis eine Taste gedrückt wurde ...
        If Lese_InputBit(PE) = True Then '... ständig der Input-Port abgefragt 
        ' werden 
                Call Control(1)    ' Wenn der Port aktiv ist, wird die 
                ' Control-Funktion aufgerufen, 
                                               ' welche speichert, dass die 
                                               ' Taste gedrückt wurde.
                KeyPress = True ' Schleife wird beendet
        End If
    Loop
End If

Ein Computer wird immer das tun, was du programmierst, nicht, was du willst.