Imports System
Imports System.IO
Public Class Form1
    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) _
      Handles Button1.Click
        Dim sArray As String()
        Dim i As Integer
        Dim selectedhopdateien() As String
        Dim dateiname As Integer
        Dim dateinamen() As String
        Dim bezeichnung As String
 
        With OpenFileDialog1
            .InitialDirectory = Application.StartupPath
            .FileName = "Test.hop"
            .Filter = "Dateien (*.hop)|*.hop|Alle Dateien (*.*)|*.*"
            .RestoreDirectory = True
            .Multiselect = True
            If OpenFileDialog1.ShowDialog() = _
              System.Windows.Forms.DialogResult.OK Then
                selectedhopdateien = OpenFileDialog1.FileNames
                For dateiname = 0 To UBound(selectedhopdateien)
                    dateinamen = Split(selectedhopdateien(dateiname), vbCrLf)
 
                    For o As Integer = 0 To UBound(dateinamen)
 
                        bezeichnung = IO.Path.GetFileName(selectedhopdateien( _
                          dateiname))
                        sArray = System.IO.File.ReadAllLines(dateinamen(o))
                        If sArray.Length > 21 Then
                            For i = 19 To 21
                                If sArray(i).Length > 15 Then
                                    TextBox1.AppendText(bezeichnung & (sArray( _
                                      i).Substring(9, sArray(i).Length - 15) _
                                      & vbCrLf))
                                End If
                            Next i
                        End If
                    Next
                Next
            End If
 
                        End With
 
    End Sub
End Class