external name not defined problem

[kapperbeast]

Perhaps;

        Open filnavn For Input As #filnummer
            Do
                Line Input #filnummer, linje
                If EOF(filnummer) Then Exit Do
                position = InStr(linje, "6116")
                If position > 0 Then tal = Mid(linje, position, 4)
            Loop
        Close #filnummer

thanks a million