Public Shared Function pfadparser(ByVal pfad As String)
        Dim chararray() As Char = pfad.ToCharArray
        Dim anfbool As Boolean = False
        Dim anfzahl As Integer = 0
        Dim anfzahl2 As Integer = 0
        Dim festpfad(0) As String
        Dim varpfad(0) As String
        Dim temp(0) As Char
        For i = 0 To pfad.Length - 1
            If chararray(i) = Chr(34) Then
                If anfbool = True Then
                    If Not temp.Length = 1 Then
                        ReDim Preserve festpfad(festpfad.Length)
                        festpfad(festpfad.Length - 2) = CStr(temp)
                        ReDim temp(0)
                        anfzahl = anfzahl + 1
                    End If
                    anfbool = False
                Else
                    If Not temp.Length = 1 Then
                        ReDim Preserve varpfad(varpfad.Length)
                        varpfad(varpfad.Length - 2) = CStr(temp)
                        ReDim temp(0)
                        anfzahl2 = anfzahl2 + 1
                    End If
                    anfbool = True
                    End If
            Else
                    ReDim Preserve temp(temp.Length)
                    temp(temp.Length - 1) = chararray(i)
            End If
        Next i
        For j = 0 To varpfad.Length - 1
            Dim temp2 As String
            MsgBox(CStr(varpfad(j)))
            temp2 = InputBox(varpfad(j))
            varpfad(j) = temp2
        Next j
 
    End Function