Private Sub cmdOpen_Click()
  Dim F As Integer
  Dim AllText As String
  Dim LineOfText As String
 
  On Error Resume Next
  With Cmd1
    .CancelError = True
    ' Filter setzen - hier wird festgelegt, mit welchem Format
    ' eine Datei geöffnet wird.
    .Filter = "Textdateien (*.txt)|*.txt"
 
    ' Dialogfeld Öffnen anzeigen
    .ShowOpen
    If .FileName <> "" Then
      F = FreeFile
      Open .FileName 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
      Text1.Text = AllText
    End If
  End With
End Sub