Private Sub Open_Click()
   '————————————————————————————————————————————————————————————————————
   ' Dieser File Open benutzt der Module X_File_Open_API
   '————————————————————————————————————————————————————————————————————
 
    Dim Dummy                 As Byte       ' Benutzt fuer Breack Point
    Dim Savefile              As Long
    Dim Datei_Name_mit_Pfade  As String
 
    Dim File_Groesse          As Long
    Dim MsgBox_Result         As Integer    ' Meldung Result 1 .. 7
                                            ' Ja, Nein, u.s.w.
   '   
   ' '—————————————————————————————————————————————————————————————————————————
   '<< Begin >> Dateiopen
     Dummy = 1
     Datei_Name_mit_Pfade = fkt_FileOpen
     Dummy = 1
    '--------------------------------------------------------------------------
    ' --
    ' Datei Groesse pruefen
     File_Groesse = FileLen(Datei_Name_mit_Pfade)
    '   
    ' '————————————————————————————————————————————————————————————————————————
    ' << Begin >> wenn groesser 32000 Bytes dann Meldung und (Raus) Exit Sub !!!
     Dummy = 1
     If (File_Groesse > 32000) Then
          MsgBox_Result = _
          MsgBox("D I E S E R   D A T E I   I S T   G R O E S S E R   A L S  " & _
          "32'000 Byte" _
                 + vbCrLf + vbCrLf + _
                 "U N D   K A N N   N I C H T   G E O E F F N E T   W E R D E N" & _
                 "!!!", _
                  vbCritical, _
                 "U e b e r w a c h u n g  : D a t e i  G r o e s s e   m a x.")
         Exit Sub
     End If
    '
    ' << Ende  >> wenn groesser 32000 Bytes dann Meldung und (Raus) Exit Sub !!!
    '——————————————————————————————————————————————————————————————————————————
    ' ——
     Dummy = 1
     ' Wenn Datei_Name_mit_Pfade Leer tue Nicht !!
     If (Datei_Name_mit_Pfade <> "") Then
       Text_Editor.Text = ReadFile(Datei_Name_mit_Pfade) ' Eingentliche
                                                         ' File Ladung
                                                         ' if ( Alles OK!! )
     End If
    '——————————————————————————————————————————————————————————————————————————
    ' ——
 
   '<< Ende  >> Dateiopen
   '———————————————————————————————————————————————————————————————————————————
   ' ———
End Sub