Dim F As Integer
  Dim AllText As String
  Dim LineOfText As String
  URL = Dateiname
 
 
 ' On Error Resume Next
 ' With CommonDialog1
 '   .CancelError = True
    ' Filter setzen - hier wird festgelegt, mit welchem Format
    ' eine Datei geöffnet wird.
 '   .Filter = "Textdateien (*.txt)|*.txt"
 
    ' Dialogfeld Öffnen anzeigen
      F = FreeFile
      Open URL For Input As #F
      ' Zeilen aus Textdatei einlesen und in Variable AllText speichern
      Do Until EOF(F)
        Line Input #F, LineOfText
        AllText = AllText & LineOfText & vbCrLf
      Loop
      Close #F
 
      ' Inhalt der Variable AllText im Textfeld ausgeben
      Textausgabe = AllText