Private Function ReadFile(ByVal strFileName As String)
   Dim intHandle As Integer   ' Dateinummer (FileHandle)
   Dim strAllText As String   ' der gesamte Dateiinhalt
 
   intHandle = FreeFile
   Open strFileName For Binary As #intHandle
   strAllText = Space(LOF(intHandle))
   Get #intHandle, , strAllText
   Close #intHandle
   Debug.Print strAllText
 
   ReadFile = strAllText
End Function