Private Function T2_11_Open_Load(File As String) As String
  On Error GoTo errHandle
  Dim sInhalt As String, F As Double, Bytes As Double
  F = FreeFile                            ' Datei im Binärmodus öffnen
  Open File For Binary As #F
  Bytes = LOF(F)                          ' Dateilänge ermitteln
  sInhalt = Space(Bytes)                  ' Größe ermitteln, und mit 
  ' Leerzeichen füllen
  Get #F, , sInhalt                       ' Gesamten Inhalt einlesen
  Close #F                                ' Datei schliessen
  T2_11_Open_Load = sInhalt
  Exit Function
errHandle:
  T2_11_Open_Load = ""
End Function