Dim file 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
                Dim file & i As String = s //hier die Variablendeklaration (so _
                  geht's nicht)
            End If
            i = i+1
        Next s

Liebe Gr?sse,
Simon