Dim file(2) As String = Request.QueryString("file")
        Dim trennzeichen As String() = file.Split(New Char() {","c})
 
        Dim s As String
        Dim i As Integer
        For Each s In trennzeichen
            If s.Trim() <> "" Then
                    redim file(i)
                    file(i)=s
            End If
            i = i+1
        Next s