txt fil hvorfor virker dettet ikke mere

Hej der ude..

Er der en som kan se hvad der er ivejen med denne kode? :S
den virker bare ikke mere :S


Public Function lestxt(linjenr As String)
On Error Resume Next
  Dim i As Integer
  Dim dintekstfil As String
  Dim fHandle As Integer
  i = 1
  dintekstfil = "C:\Vognmandnr.txt"
  fHandle = FreeFile
  Open dintekstfil For Input As #fHandle
  While Not EOF(fHandle)
    Line Input #fHandle, tekstlinie
    If i = linjenr Then
      linjetxt = tekstlinie
      Exit Function
    End If
    i = i + 1
  Wend
  Close fHandle
End Function