Dim FC As Integer
  Dim AllTextC As String
  Dim LineOfTextC As String
 
 Open Combo2 For Input As #FC
 If Combo2 = "" Then
 MsgBox "Die Datei wurde nicht gefunden"
 GoTo 3:
 Else
  End If
 
 
       ' Zeilen aus Textdatei einlesen und in Variable AllText speichern
      Do Until EOF(FC)
        Line Input #FC, LineOfTextC
        AllTextC = AllTextC & LineOfTextC & vbCrLf
      Loop
      Close #FC
           ' Inhalt der Variable AllText im Textfeld ausgeben
 
      commentText.Text = AllTextC