Private Sub ProjektDetails(ByVal Projekt As String)
        Debug.WriteLine(Projekt)
        Dim fstreamer As New FileStream(Projekt, FileMode.Open, FileAccess.Read)
        Dim SReader As New BinaryReader(fstreamer, System.Text.Encoding.UTF8)
        Dim ff As System.IO.FileInfo = New FileInfo(Projekt)
        Debug.WriteLine(SReader.ReadString())
        SReader.Close()
        fstreamer.Close()
    End Sub