external name not defined problem

[kapperbeast]

Private Sub Command2_Click()

    Dim filnummer As Integer
    Dim filnavn As String
    Dim linje As String
    Dim position As Long
    Dim tal As String
    
    filnummer = FreeFile
    filnavn = "C:\Users\kapperbeast\Desktop\programering\clean priser.txt"
    
        Open filnavn For Input As #filnummer
            Do
            Line Input #filnummer, linje
                position = InStr(linje, "6116")
                    
                tal = Mid(linje, position, [4])
            Loop Until EOF
        Close #filnummer
    

End Sub

is giving me the "external name not defined" error every time i try to run it

HELP PLEASE

[Magic Ink]

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

[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