On Error Fejl !!!!!

Hvorfor virker min \"On Error GoTo fejl\" ikke !!!

---------------------------------
Private Sub Form_Load()
On Error GoTo fejl

Dim antal As Integer
Dim tekstvariabel As String
Dim path As String

path = App.path
Open \"fil.txt\" For Input As #1
    antal = 0
    Do Until EOF(1)
        Line Input #1, tekstvariabel
        antal = antal + 1
        If antal Mod 5 = 0 Then
            Text1.Text = Text1.Text & tekstvariabel + Chr(13) + Chr(10)
        End If
    Loop
Close 1
End Sub

fejl:
MsgBox (\"Der er sket en fejl !\")
End Sub

---------------------------------

Jeg for denne error \"Label Not Defined\".

Please Help