Dim FN As Integer
Dim sBuffer As String
 
If Len(Dir$(App.Path & "\" & File1.FileName, vbNormal)) > 0 Then
  FN = FreeFile
  Open App.Path & "\" & File1.FileName For Binary As #FN
  sBuffer = Space$(LOF(FN))
  Get #F, , sBuffer  'Hier fehler
  Close #FN
 
 
 
Text2(1).Text = sBuffer
 
 
End If
MsgBox CStr(Len(sBuffer))