external name not defined problem

Code:

---

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

Perhaps;

Code:

---

        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

---

Quote:

---

Originally Posted by Magic Ink

Perhaps;

Code:

---

        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