Convert C# to VB.NET problem

Schweregrad	Code	Beschreibung	Projekt	Datei	Zeile	Unterdrückungszustand
Fehler	BC36599	Der Name einer Bereichsvariablen kann nur von einem einfachen oder qualifizierten Namen ohne Argumente abgeleitet werden.	MyFirstVSIX	E:\Daten\VSCommunity\Projects\VS2019Projects\MyFirstVSIX\Utilities\LocateFile.vb	33	Aktiv

Quote:

Severity Code Description Project File Line Suppression State
Error BC36599 The name of a range variable can only be derived from a simple or qualified name with no arguments. MyFirstVSIX E: \ Daten \ VSCommunity \ Projects \ VS2019Projects \ MyFirstVSIX \ Utilities \ LocateFile.vb 33 Active

Schweregrad	Code	Beschreibung	Projekt	Datei	Zeile	Unterdrückungszustand
Fehler	BC36615	'"Into" erwartet.	MyFirstVSIX	E:\Daten\VSCommunity\Projects\VS2019Projects\MyFirstVSIX\Utilities\LocateFile.vb	33	Aktiv

Quote:

Severity Code Description Project File Line Suppression State
Error BC36615 '"Into" expected. MyFirstVSIX E: \ Daten \ VSCommunity \ Projects \ VS2019Projects \ MyFirstVSIX \ Utilities \ LocateFile.vb 33 Active

if (paths.Count<FileSystemInfo>() != 0)
{
    foreach (
        IGrouping<string, FileSystemInfo> grouping in
        from p in paths group p by Path.GetDirectoryName(p.FullName))
    {
        FilesOrFolders(Path.GetDirectoryName(grouping.First<FileSystemInfo>().FullName),
            (from fsi in grouping select fsi.Name).ToList<string>());
    }
}

Public Sub FilesOrFolders(ByVal paths As IEnumerable(Of FileSystemInfo))

If paths.Count > 0 Then
    For Each grouping As IGrouping(Of String, FileSystemInfo) In From p In paths Group p By Path.GetDirectoryName(p.FullName)
                                                                                     FilesOrFolders(Path.GetDirectoryName(grouping.First.FullName), (From fsi In grouping Select fsi.Name).ToList)
    Next

End If