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