Function StringSuchen(ByVal Datei As String, ByVal start As Integer, ByVal ende _
  As Integer) As String
        Dim data As String = ""
        Using Fs As FileStream = File.OpenRead(Datei)
            Fs.Seek(start, SeekOrigin.Begin)
 
            Do Until Fs.Position = ende
                data &= Chr(Fs.ReadByte())
            Loop
 
        End Using
        Return data
    End Function