Dim aa As String
    Dim FN As Integer
 
 
 
    If Len(Dir$(File1.FileName, vbNormal)) > 0 Then
     FN = FreeFile
     Open File1.FileName For Input As #FN
     Text2(1).Text = Input$(LOF(FN), FN)   ' Hier kommt der Fehler
     Close FN
    End If