Public Sub pfadparser2(ByVal pfad As String)
 
        Dim start As Integer = pfad.IndexOf(Chr(34))
        Dim ende As Integer = pfad.IndexOf(Chr(34), start + 1)
 
        If start >= 0 And ende >= 0 Then
            Dim before34 As String = pfad.Substring(0, start - 1)
            Dim behind34 As String = pfad.Substring(ende + 1)
            Dim between As String = pfad.Substring(start + 1, ende - start)
        End If
 
    End Sub