Imports System
 
Public Class Test
	Public Shared Sub Main()
        Dim printfilePs As String = "printfile ps    = ""Elopak Zufriedenheit After Sales.ps"";"
		Dim quote As Char = """"c
        Dim first As Int32 = printfilePs.IndexOf(quote)
        Dim last  As Int32 = printfilePs.LastIndexOf(quote)
        Dim partBetweenQuotes As String = ""
        If first <> -1 AndAlso last > first Then
             Dim start As Int32 = first + 1
             Dim length  As Int32 = printfilePs.Length - start - (printfilePs.Length - last)
             partBetweenQuotes = printfilePs.Substring(start, length)
        End If
        Console.WriteLine(partBetweenQuotes)
	End Sub
End Class

SW1wb3J0cyBTeXN0ZW0KClB1YmxpYyBDbGFzcyBUZXN0CglQdWJsaWMgU2hhcmVkIFN1YiBNYWluKCkKICAgICAgICBEaW0gcHJpbnRmaWxlUHMgQXMgU3RyaW5nID0gInByaW50ZmlsZSBwcyAgICA9ICIiRWxvcGFrIFp1ZnJpZWRlbmhlaXQgQWZ0ZXIgU2FsZXMucHMiIjsiCgkJRGltIHF1b3RlIEFzIENoYXIgPSAiIiIiYwogICAgICAgIERpbSBmaXJzdCBBcyBJbnQzMiA9IHByaW50ZmlsZVBzLkluZGV4T2YocXVvdGUpCiAgICAgICAgRGltIGxhc3QgIEFzIEludDMyID0gcHJpbnRmaWxlUHMuTGFzdEluZGV4T2YocXVvdGUpCiAgICAgICAgRGltIHBhcnRCZXR3ZWVuUXVvdGVzIEFzIFN0cmluZyA9ICIiCiAgICAgICAgSWYgZmlyc3QgPD4gLTEgQW5kQWxzbyBsYXN0ID4gZmlyc3QgVGhlbgogICAgICAgICAgICAgRGltIHN0YXJ0IEFzIEludDMyID0gZmlyc3QgKyAxCiAgICAgICAgICAgICBEaW0gbGVuZ3RoICBBcyBJbnQzMiA9IHByaW50ZmlsZVBzLkxlbmd0aCAtIHN0YXJ0IC0gKHByaW50ZmlsZVBzLkxlbmd0aCAtIGxhc3QpCiAgICAgICAgICAgICBwYXJ0QmV0d2VlblF1b3RlcyA9IHByaW50ZmlsZVBzLlN1YnN0cmluZyhzdGFydCwgbGVuZ3RoKQogICAgICAgIEVuZCBJZgogICAgICAgIENvbnNvbGUuV3JpdGVMaW5lKHBhcnRCZXR3ZWVuUXVvdGVzKQoJRW5kIFN1YgpFbmQgQ2xhc3M=